OFFSET
1,2
COMMENTS
There are no further terms. - Farideh Firoozbakht, Apr 16 2008
EXAMPLE
(4 + 4 + 1)*(4! + 4! + 1!) = 441.
MATHEMATICA
f[n_] := Plus @@ (Factorial /@ IntegerDigits[n])Plus @@ IntegerDigits[n]; Select[ Range[ 10^7], f[ # ] == # &] (* Robert G. Wilson v, May 29 2004 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Jason Earls, May 27 2004
STATUS
approved