program no2;
var x,i,a,b,r,s,n,l:longint;
    f,g:text;
 begin
 assign(f,'sum.in');
 assign(g,'sum.out');
 reset(f);
 rewrite(g);
 readln(f,n);
 for l:=1 to n do
 begin
 readln(f,x);
 s:=0;
 for i:=1 to 2*x do
 begin
 a:=x;
 b:=i;
 repeat
  r:=a mod b;
  a:=b;
  b:=r;
  until r=0;
 if a=1 then
 s:=s+i;
 end;
 writeln(g,s);
 end;
 close(f);
 close(g);
end.