var s,i,n,x:longint;
    f,g:text;
procedure prim;
var i,xx,nr:longint;
begin
s:=0;
for i:=1 to 2*x do begin
                   nr:=i;
                   xx:=x;
                   while nr<>xx do if nr>xx then nr:=nr-xx
                                          else xx:=xx-nr;
                   if nr=1 then s:=s+i;
                   end;
end;
begin
assign(f,'sum.in');reset(f);
readln(f,n);
assign(g,'sum.out');rewrite(g);
for i:=1 to n do begin
                 readln(f,x);
                 prim;
                 writeln(g,s);
                 end;
close(f);
close(g);
end.