OFFSET
1,2
COMMENTS
EXAMPLE
367932 = 3! + 7! + 9! + 3!.
MATHEMATICA
Select[Range[370000], MemberQ[Total[#!]&/@Rest[Subsets[ IntegerDigits[ #]]], #]&] (* Harvey P. Dale, Mar 20 2017 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Berend Jan van der Zwaag (b.j.vanderzwaag(AT)utwente.nl), Aug 03 2009
STATUS
approved