login
Near-factorions: equal to the sum of the factorials of all but one of their digits in base 10.
1

%I #3 Jul 03 2016 00:23:41

%S 24,5761,5762

%N Near-factorions: equal to the sum of the factorials of all but one of their digits in base 10.

%D Clifford A. Pickover, "Wonders of Numbers: Adventures in Mathematics, Mind, and Meaning", Oxford University Press, 2003, p. 357.

%e 24 = 4!, 5761 = 7! + 6! + 1!, 5762 = 7! + 6! + 2!

%o (MATLAB) f = factorial(0:9); n = 0; for m = 1:2177280, d = f(mod(floor(m*10.^(-floor(log10(m)):0)),10)+1); if any(sum(d)-d==m), n = n+1; a(n) = m; end, end

%Y Cf. A014080.

%K base,fini,full,nonn,bref

%O 1,1

%A Berend Jan van der Zwaag (b.j.vanderzwaag(AT)utwente.nl), Jul 31 2009