var x,i,n,s,y,a,b,r:longint;
begin
 assign(input,'sum.in');reset(input);
 assign(output,'sum.out');rewrite(output);
 readln(n);
 for i:=1 to n do begin
  read(x);s:=0;
  for y:=1 to 2*x do begin
   a:=y;
   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+y;
  end;
  writeln(s);
 end;
 close(input);close(output);
end.