Var
 Max_Cardinal,j,t:Cardinal;
 i:word;

Function Nfact(n:word):Cardinal;
var
  k:word;
  fact:Cardinal;
begin
 if n=0 then fact:=1 else
  begin
   fact:=1;
   for k:=1 to n do fact:=fact*k;
  end;
 Nfact:=fact;
end;

Begin
 Max_Cardinal:=1;
 for i:=1 to 31 do Max_Cardinal:=Max_Cardinal*2;
 Max_Cardinal:=(Max_Cardinal-1)*2+1;
 Writeln('Max_Cardinal = ',Max_Cardinal);
 i:=0;
 While Nfact(i)<=Max_Cardinal/(i+1) do
  begin
   Inc(i);
   t:=Trunc(Exp(Ln(Nfact(i))/3));
   j:=t-1;
   repeat
    Inc(j);
   until j*j*j-j>=Nfact(i);
   if j*j*j-j=Nfact(i) then
    Writeln(i,'   ',Nfact(i),'   ',j-1,'*',j,'*',j+1);
  end;
 Readln
End.