{$IFDEF NORMAL}
  {$I-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
  {$I+,Q+,R+,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
  {$I-,Q-,R-,S-}
{$ENDIF RELEASE}

var fi,fo:text;
    i,n,x,a,b,int:longint;
    sum:int64;
    v:array[1..100000] of longint;

  procedure scor(a:longint);
   var i,j,k:longint;
    begin
     for i:=1 to int do
      v[i]:=0;
     int:=2*x;
     sum:=((2*x+1)*2*x) div 2;
     for i:=2 to a do
      begin
       if v[i]=0 then
        if a mod i=0 then
        begin
          v[i]:=1;
          dec(sum,i);
         k:=2*i;
         while k<=2*a do
         begin

          if v[k]=0 then dec(sum,k);
          v[k]:=1;
          k:=k+i;
         end;
        end;
      end;
     writeln(fo,sum);
    end;


begin
 assign(fi,'sum.in'); reset(fi);
 assign(fo,'sum.out'); rewrite(fo);
 readln(fi,n);
 for i:=1 to n do
  begin
   readln(fi,x);
   scor(x);
  end;
close(fi);
close(fo);
end.