program suminfo;
var n,x,c,j,k,s,g,l :longint;
function max(a,b :longint) : longint;
begin
l:=0;
for g:=1 to a do
begin
if ((a mod g)=0) and ((b mod g)=0) then
l:=g;
end;
max:=l;
end;
var a : array[1..100000] of longint;
var f,ff :text;
begin
assign(f,'sum.in');
reset(f);
readln(f,n);
for c:=1 to n do
begin
readln(f,x);
s:=0;
for j:=1 to 2*x do
begin
if max(x,j)=1 then
s:=s+j
end;
a[c]:=s;
end;
close(f);
assign(ff,'sum.out');
rewrite(ff);
for k:=1 to n do
begin
writeln(ff,a[k]);
end;
close(ff)
end.