var n,x,r,i,j,a,b:longint;
    s:int64;
begin
assign(input,'sum.in');reset(input);
assign(output,'sum.out');rewrite(output);
read(n);
 for i:=1 to n do begin
  read(x);s:=1;
  for j:=2 to (x*2) do begin
   a:=j;b:=x;r:=a mod b;
   while r<>0 do begin
    a:=b;b:=r;r:=a mod b;
   end;
   if b=1 then s:=s+j;
  end;
  writeln(s);
 end;
close(input);close(output);
end.