{ http://infoarena.ro/problema/sum }
type vector=array[1..200000] of longint;
var rez:int64;
    n,i,j,k,x:longint;
    f,g:text;
    t:vector;
begin
        assign(f,'sum.in'); reset(f);
        assign(g,'sum.out'); rewrite(g);
        readln(f,n);
        for k:=1 to n do
                begin
                readln(f,x);
                for i:=1 to x do t[i]:=i;
                for i:=2 to x do
                        if t[i]=i then
                        begin
                        j:=i;
                        while j<=x do
                                begin
                                t[j]:=t[j] div i;
                                t[j]:=t[j] * (i-1);
                                j:=j+i;
                                end;
                        end;
                rez:=2 * t[x] * x;
                writeln(g,rez);
                end;
        close(f); close(g);
end.