A163752 Generalized factorions: numbers which are equal to the sum of the factorials of some or all of their digits in base 10.
1, 2, 24, 145, 5760, 5761, 5762, 40328, 40585, 362904, 367920, 367921, 367922, 367926, 367928, 367932, 367944
Offset: 1
Examples
367932 = 3! + 7! + 9! + 3!.
Programs
-
Mathematica
Select[Range[370000],MemberQ[Total[#!]&/@Rest[Subsets[ IntegerDigits[ #]]], #]&] (* Harvey P. Dale, Mar 20 2017 *)
Comments