var n,suma,i,x:longint;
    v:array[1..200000] of longint;
    f,g:text;
procedure ciur(n:longint);
var i,j:longint;
begin
     for i:=1 to n do v[i]:=i;
     v[1]:=0; i:=2;
     while i<= trunc(sqrt(n)) do
        begin
        j:=sqr(i);
        while j<=n do
                begin
                v[j]:=0;
                j:=j+i;
                end;
        if i=2 then i:=3
               else i:=i+2;
        end;
     suma:=0;
     for i:=1 to n do
        suma:=suma+v[i];
end;

BEGIN
    assign(f,'sum.in'); reset(f);
    assign(g,'sum.out'); rewrite(g);
    readln(f,n);
    for i:=1 to n do
        begin
        readln(f,x);
        ciur(2*x);
        writeln(g,suma+x);
        end;
    close(f); close(g);
END.