A097642 Numbers k such that k = (d_1! + d_2! + ... + d_k!) - (d_1 + d_2 + ... + d_k) where d_1 d_2 ... d_k is the decimal expansion of k.

3, 115, 6576, 80855

Offset

1,1

Links

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

Example

80855 is in the sequence because 80855 = (8! + 0! + 8! + 5! + 5!) - (8 + 0 + 8 + 5 + 5).

Mathematica

okQ[n_]:=Module[{idn=IntegerDigits[n]}, n==Total[idn!]-Total[idn]]; Select[Range[81000], okQ] (* Harvey P. Dale, Aug 26 2011 *)

Crossrefs

Cf. A097643.

Sequence in context: A229929 A267897 A132304 * A009095 A326995 A155209

Adjacent sequences: A097639 A097640 A097641 * A097643 A097644 A097645

Keyword

base,fini,full,nice,nonn

Author

Farideh Firoozbakht, Aug 22 2004

Status

approved