program sum;
type
tabel=array [0..1000010] of longint;
var
t:tabel;
i,j:longint;
n,k,x:int64;
f1,f2:text;
begin
assign (f1,'sum.in');
assign (f2,'sum.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=2 to 100005 do t[i]:=i-1;
for i:=2 to 50005 do begin
j:=2*i-i;
repeat
j:=j+i;
t[j]:=t[j]-t[i];
until j>=100005;
end;
for i:=1 to n do begin
readln (f1,x);
writeln (f2,2*x*t[x]);
end;
close (f1);
close (f2);
end.