program sum;
var   phi:array[0..200002] of longint;
      i,n,j,x:longint;
begin
assign(input,'sum.in');
reset(input);
read(input,n);
assign(output,'sum.out');
rewrite(output);
for i:=1 to 200002 do phi[i]:=i-1;
for i:=2 to 200002 do begin
    j:=2;
    while j*i<=200002 do begin
          phi[j*i]:=phi[j*i]-phi[i];
          inc(j);
          end;
    end;
for i:=1 to n do begin
    readln(input,x);
    writeln(output,phi[x]*phi[2*x+1]);
    end;
close(output);
close(input);
end.