program sum;
type
tabel=array [0..100001] of longint;
var
t:tabel;
n,i,j,k,x:longint;
f1,f2:text;
begin
assign (f1,'sum.in');
assign (f2,'sum.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=1 to 10010 do t[i]:=i;
for i:=2 to 10010 do
if t[i]=i then
for j:=i to 10010 do
begin
t[j]:=t[j] div i;
t[j]:=t[j]*(i-1);
end;
for i:=1 to n do begin
readln (f1,x);
writeln (f2,2*x*t[x]);
end;
close (f1);
close (f2);
end.