var n,x,i,s,gaus:longint;
    v:array[1..70000] of boolean;
    f,g:text;
procedure papai_croitoru;
          var q:longint;
          begin
               fillchar(v,65000,false);
          end;
procedure viermele_energic;
          var k:longint;
          begin
               k:=2;
               v[x]:=true;
               if x mod k=0 then v[k]:=true;
               inc(k);
               while k<x do begin
                     if x mod k=0 then v[k]:=true;
                     k:=k+2
               end;
          end;
procedure cipi;
          var j,h:longint;
          begin
               read(f,x);
               papai_croitoru;
               viermele_energic;
               s:=0;
               gaus:=0;
               for j:=2 to 2*x-1 do
                   for h:=2 to x do
                   if (v[h]) and (j mod h=0) then begin
                                             s:=s+j;
                                             break
                                             end;
               gaus:=((2*x-1)*x*2) div 2;
               s:=gaus-s;
               writeln(g,s)
          end;
begin
     assign(f,'sum.in');
     reset(f);
     assign(g,'sum.out');
     rewrite(g);
     read(f,n);
     for i:=1 to n do cipi;
     close(f);
     close(g)
end.