program no2;
var x,i,a,b,r,s,n,l,j:longint;
    f,g:text;
    v:array[1..100000] of byte;
 begin
 assign(f,'sum.in');
 assign(g,'sum.out');
 reset(f);
 rewrite(g);
 readln(f,n);
 for l:=1 to n do
 begin
 readln(f,x);
 for i:=1 to x do
 v[i]:=0;
 i:=2;
 while i<=x do
  begin
  if (v[i]=0) and (x mod i=0) then
  for j:=1 to x*2 div i  do
  v[i*j]:=1;
  inc(i);
  end;
 s:=0;
 for i:=1 to 2*x do

 if v[i]=0 then
 s:=s+i;

 writeln(g,s);
 end;
 close(f);
 close(g);
end.