var n,x,i,s,j,k:longint;
   f,g:text;
   function cmmdc(a,b:longint):longint;
   begin
            if b=0 then cmmdc:=a
          else cmmdc:=cmmdc(b,a mod b);
    end;
begin
         assign(f,'sum.in');
         reset(f);
         readln(f,n);
         assign(g,'sum.out');
         rewrite(g);
         close(g);
         k:=0;
       for i:=1 to n do
          begin
         s:=0;
       readln(f,x);
      for j:=1 to 2*x do
       if cmmdc(j,x)=1 then
          s:=s+j;
         assign(g,'sum.out');
         append(g);
         writeln(g,s);
         close(g);
            end;
end.