%I #5 Mar 25 2022 18:16:43
%S 1,2,24,145,5760,5761,5762,40328,40585,362904,367920,367921,367922,
%T 367926,367928,367932,367944
%N Generalized factorions: numbers which are equal to the sum of the factorials of some or all of their digits in base 10.
%C Generalized factorions include factorions (A014080), near-factorions (A163576), and "not-so-near-factorions" such as 362904, which is equal to 9! + 4!.
%e 367932 = 3! + 7! + 9! + 3!.
%t Select[Range[370000],MemberQ[Total[#!]&/@Rest[Subsets[ IntegerDigits[ #]]], #]&] (* _Harvey P. Dale_, Mar 20 2017 *)
%Y Superset of A014080 and A163576.
%K base,fini,full,nonn
%O 1,2
%A Berend Jan van der Zwaag (b.j.vanderzwaag(AT)utwente.nl), Aug 03 2009
|