|
| |
|
|
A163576
|
|
Near-factorions: equal to the sum of the factorials of all but one of their digits in base 10.
|
|
1
| | |
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| Clifford A. Pickover, "Wonders of Numbers: Adventures in Mathematics, Mind, and Meaning", Oxford University Press, 2003, p. 357.
|
|
|
EXAMPLE
| 24 = 4!, 5761 = 7! + 6! + 1!, 5762 = 7! + 6! + 2!
|
|
|
PROG
| (Other) (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
|
|
|
CROSSREFS
| Cf. A014080.
Sequence in context: A003787 A002555 A002198 * A145408 A175672 A181749
Adjacent sequences: A163573 A163574 A163575 * A163577 A163578 A163579
|
|
|
KEYWORD
| base,fini,full,nonn,bref
|
|
|
AUTHOR
| Berend Jan van der Zwaag (b.j.vanderzwaag(AT)utwente.nl), Jul 31 2009
|
| |
|
|
