program szum;
var n,x,i,j,db:longint;
    be,ki:text;

function lnko(a,b:longint):integer;
var m:longint;
begin
     while a<>b do begin
           m:=a-b;
           if m>b then a:=m
                  else begin a:=b;
                             b:=m;end;
           end;
     lnko:=a;
end;


begin
     assign(be,'sum.in');reset(be);
     assign(ki,'sum.out');rewrite(ki);
     readln(be,n);
     for i:=1 to n do begin
         readln(be,x);db:=0;
         for j:=2 to (x-1) do
             if(lnko(x,j)=1) then db:=db+j;
         for j:=x+1 to (2*x)-1 do
             if(lnko(j,x)=1) then db:=db+j;
         writeln(ki,db+1);
         end;

     close(be);close(ki);
end.