program suminfo;
var n,x,c,j,k,s,l :longint;
function max(a,b :longint) : longint;
begin
l:=a mod b;
while l>0 do
begin
a:=b;
b:=l;
l:=a mod b;
end;
max:=b
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.