var  t:longint; f1,f2:text;

procedure calc;
var i,j:longint; n,s,k,l:int64;
begin
 for i:=1 to t do
  begin
   readln(f1,n);
   k:=0; s:=0; l:=trunc(sqrt(n));
   for j:=1 to l do
    begin
     if (j=l)and(n mod j=0) then begin inc(k); s:=s+j; end else
     if n mod j=0 then begin k:=k+2; s:=s+j+(n div j); end;
    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.