var f,g:text; n,i,x,sum,j:longint;
function prim:boolean;
var s:longint;
begin
prim:=true;
for s:=2 to x do
if (x mod j=0)or ((x mod s=0)and(j mod s=0))
then prim:=false;
end;
begin
assign(f,'sum.in');reset(f);
assign(g,'sum.out');rewrite(g);
readln(f,n);
while not eof (f) do begin
readln(f,x);
for j:=1 to x*2 do
if prim=true then sum:=sum+j;
writeln(g,sum+1); sum:=0;
end;
close(f);close(g);end.