program pascall;
var n,x,i,s,j:longint;
   f,g:text;
   function cmmdc(a,b:longint):longint;
   begin
            if a=b then cmmdc:=a
              else if a>b then cmmdc:=cmmdc(a-b,b);
                if b>a then cmmdc:=cmmdc(a,b-a);
    end;
begin
         assign(f,'suma.in');
         reset(f);
         readln(f,n);
         assign(g,'suma.out');
         rewrite(g);
         close(g);
       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,'suma.out');
       append(g);
       writeln(g,s);
       close(g);
           end;
end.
           enc;