Program sum_2;
 var n,i,j,l,x:longint;
     a:array [1..100002] of longint;
     s:int64;
     fi,fo:text;
begin
 assign(fi,'sum.in');
  assign(fo,'sum.out');
 reset(fi);
  rewrite(fo);
 readln(fi,n);
 for i:=1 to 100002 do
              a[i]:=i-1;
 for i:=2 to 50001 do  begin
                         j:=2*i;
                          while j<=100002 do begin
                            a[j]:=a[j]-a[i];
                              j:=j+i;
                               end;
                                end;
 for i:=1 to n do begin
                   readln(fi,x);
                   s:=a[x]*x*2;
                   writeln(fo,s);
                   end;
 close(fo);
end.