const max=100000;
var n,nr,i,j:longint;
    sum:int64;
    a:array[1..max] of longint;
    f,g:text;
 procedure euler;
  begin
   for i:=1 to max do
    a[i]:=i-1;
   for i:=2 to max do
     for j:=2 to max div i do
      a[j*i]:=a[j*i]-a[i]
  end;
 begin
  euler;
  assign(f,'sum.in');
  assign(g,'sum.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
  begin
  readln(f,nr);
  sum:=a[nr]*nr*2;
  writeln(g,sum);
  end;
  close(f);
  close(g);
 end.