var  d:array[1..1000000]of longint;
     t:longint; f1,f2:text;

procedure calc;
var i,j:longint; n,s,k:int64;
begin
 for i:=1 to t do
  begin
   readln(f1,n);
   k:=0; s:=0;
   for j:=1 to trunc(sqrt(n)) do
    if n mod j=0 then begin k:=k+2; s:=s+j+(n div j); end;
   writeln(f2,k,' ',s mod 9973);
  end;
end;


begin
 assign(f1,'ssnd.in');
 reset(f1);
 assign(f2,'ssnd.out');
 rewrite(f2);
 readln(f1,t);
 calc;
 close(f1);
 close(f2);
end.