program sum;
 var x,n,j,i:longint;
   s:int64;
   fi,fo:text;
 function cmmdc(a,b:longint):boolean;
  var r:longint;
  begin
  repeat
  r:=a mod b;
  a:=b; b:=r;
  until r=0;
   if a=1 then cmmdc:=true
             else cmmdc:=false;
  end;
begin
 assign(fi,'sum.in');
  reset(fi);
 assign(fo,'sum.out');
  rewrite(fo);
 readln(fi,n);
  for i:=1 to n do begin
   readln(fi,x);
   s:=x+1;
    for j:=2 to x-1 do
     if cmmdc(j,x) then s:=s+x+2*j;
   writeln(fo,s+1);
   end;
  close(fo);
end.