program suminfo;
var n,x,c,j,i,k,s,p :longint;
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);
p:=0;
for j:=1 to 2*x do
begin
s:=0;
for i:=1 to j do
begin
if ((x mod i)=0) and ((j mod i)=0) then
s:=s+1;
end;
if s=1 then
p:=p+j;
end;
a[c]:=p;
end;
close(f);
assign(ff,'sum.out');
rewrite(ff);
for k:=1 to n do
begin
writeln(ff,a[k]);
end;
close(ff)
end.