program ssnd;
type vector=array [1..100000] of boolean;
var f1,f2:text;
    t,i,j,k,s,nr:longint;
    x:int64;
    v:vector;
begin
assign(f1,'ssnd.in');
reset(f1);
readln(f1,t);
assign(f2,'ssnd.out');
rewrite(f2);
s:=0;
nr:=0;            {
for r:=2 to 1000000 do
  v[r]:=true;
for r:+2 to 1000000 do
  for k:=2 to 1000000 div r do
    v[r*k]:=false;}
for i:=1 to t do
  begin
  readln(f1,x);
  nr:=2;
  s:=1+x;
  for j:=2 to x div 2 do
    if x mod j=0 then
      begin
      s:=s+j;
      inc(nr);
      end;
    writeln(f2,nr,' ',s mod 9973);
  end;

close(f1);
close(f2);
end.