A215849 Numbers that are 1 more or less than the sum of the factorials of their digits.

1466, 81368, 372970, 372973

Offset

1,1

References

Boris A. Kordemsky, The Moscow Puzzles (1972) at pp. 167, 295.

Links

Table of n, a(n) for n=1..4.

Example

81368 = 8! + 1! + 3! + 6! + 8! + 1 = 40320 + 1 + 6 + 720 + 40320 + 1.

Mathematica

fdQ[n_]:=Module[{c=Total[IntegerDigits[n]!]}, n==c+1||n==c-1]; Select[Range[400000], fdQ]

Crossrefs

Sequence in context: A207988 A207220 A045012 * A204871 A252578 A083526

Adjacent sequences: A215846 A215847 A215848 * A215850 A215851 A215852

Keyword

nonn,fini,full,base

Author

Harvey P. Dale, Aug 24 2012

Status

approved