var n,x,j,i,b:1..100005;
    sum:longint;
    v:array[1..100005] of longint;
    f,g:text;
 begin
  assign(f,'sum.in');
  assign(g,'sum.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for b:=1 to n do
  begin
  readln(f,X);
  for i:=1 to x do
   v[i]:=i-1;
  for i:=2 to x do
   begin
    j:=2*i;
     while j<=x do
      begin
       if j=x then
       v[j]:=v[j]-v[i];
       j:=j+i;
      end;
   end;
  sum:=v[x]*2*x;
  writeln(g,sum);
  end;
  close(f);
  close(g);
 end.