var  f,g:text;s,j,i,n,x:integer;
function cmmdc(x,y:integer):integer;
begin
    while x<>y do
     begin
          if x>y then
              x:=x-y
              else
              y:=y-x;
     end;
     cmmdc:=x;
end;
begin
 assign(f,'sum.in');reset(f);
 assign(g,'sum.out');rewrite(g);
 readln(f,n);
 for i:=1 to n do
  begin
    readln(f,x);
    s:=0;
     for j:=1 to 2*x do
      if cmmdc(j,x)=1 then
      s:=s+j;
   writeln(g,s);
   end;
   close(f);
   close(g);
 end.