var fi,fo:text;
    rez,l,nr_div,n:int64;
    ct,i1,j1,k,kl:longint;
    prime:array[1..110000]of byte;
    m:array[1..100010]of int64;
    primee:array[1..110000]of int64;
procedure gen(ba:int64);
var i,j:int64;
begin
  i:=3;
  primee[1]:=2;
  l:=1;
  prime[1]:=1;
  while i<=ba do
    begin
      if prime[i]=0 then
        begin
          j:=3*i;
          inc(l);
          primee[l]:=i;
          while j<=ba do
             begin
                prime[j]:=1; inc(j,i);
             end;
        end;
      inc(i,2);
    end;
end;
procedure prim(nr:int64);
var i:int64;
begin
  ct:=1; nr_div:=0; i:=1;
  if (nr=2)or((prime[nr]=0)and(nr and 1=1)) then
     begin
       inc(nr_div);
       exit;
     end;
  if (sqrt(nr)=trunc(sqrt(nr)))or(nr mod 4=0) then
     begin
       ct:=2;
       exit;
     end;
  while i<=l do
   if (nr mod primee[i]=0) then
     begin
       inc(nr_div);
       nr:=nr div primee[i];
       if nr=1 then exit;
       if nr mod primee[i] = 0 then
         begin
           ct:=2;
           exit;
         end;
       if prime[nr]=0 then
         begin
           inc(nr_div);
           exit;
         end;
       inc(i);
     end
   else inc(i);
end;
procedure verif(i:int64);
begin
  prim(i);
  if ct=1 then
    if nr_div and 1 = 1 then rez:=rez + m[i]
                        else rez:=rez - m[i];
end;
var nr:int64;
begin
  assign(fi,'sum.in'); reset(fi);
  assign(fo,'sum.out'); rewrite(fo);
  readln(fi,kl);
  gen(100000);
  for k:=1 to kl do
    begin
      rez:=0;
      readln(fi,n);
      for i1:=2 to trunc(sqrt(n)) do
        begin
          if n mod i1=0 then
            begin
              nr:=2*n div i1;
              m[i1]:=i1*(nr*(nr+1) shr 1);
              verif(i1);
              nr:=2*n div (n div i1);
              m[n div i1]:=(n div i1)*(nr*(nr+1) shr 1);
              verif(n div i1);
            end;
        end;
      m[n]:=n*3;
      verif(n);
      rez:=(n*(2*n+1))-rez;
      writeln(fo,rez);
    end;
  close(fi); close(fo);
end.