OFFSET
1,1
EXAMPLE
2105 = 5*'421' and 2! + 1! + 0! + 5! = 124.
MATHEMATICA
r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; np[n_] := (n != r[n]); f[n_] := Plus @@ Map[ #!&, IntegerDigits[n]]; Do[l = Select[First /@ FactorInteger[n], np]; If[Length[l] > 0, k = r[Max[l]]; If[k == f[n], Print[n]]], {n, 1, 10^6}] (* Ryan Propper, Oct 19 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Sep 21 2002
EXTENSIONS
More terms from Ryan Propper, Oct 19 2005
STATUS
approved