var fi,fo:text;
    phi:array[1..100000]of int64;
    m,i,j:longint;
    rez,n:int64;
begin
  assign(fi,'sum.in'); reset(fi);
  assign(fo,'sum.out'); rewrite(fo);
  for i:=1 to 100000 do
    phi[i]:=i-1;
  for i:=2 to 100000 do
     begin
       j:=i shl 1;
       while j<=100000 do
         begin
           phi[j]:=phi[j]-phi[i];
           j:=j+i;
         end;
     end;
  read(fi,m);
  for i:=1 to m do
    begin
      read(fi,n);
      rez:=n*phi[n] shl 1;
      writeln(fo,rez);
    end;
  close(fi);
  close(fo);
end.