A071064 Numbers divisible by the sum of factorials of their digits [A061602(n)] and also terminate in the sum of factorials of their digits.

1, 2, 145, 2125, 2310, 3210, 10125, 10234, 10310, 11125, 11310, 12312, 13010, 13110, 13211, 13212, 21312, 23111, 23112, 30010, 30110, 31010, 31110, 31212, 32112, 40585, 52130, 111312, 113112, 131112, 133240, 135250, 153250, 200213

Offset

1,2

Links

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

Example

a(8)=10234: 1!+0!+2!+3!+4! = 34 and 10234/34 = 301.

Mathematica

dsfQ[n_]:=Module[{f=Total[IntegerDigits[n]!]}, Divisible[n, f]&&Mod[ n, 10^IntegerLength[f]]==f]; Select[Range[201000], dsfQ] (* Harvey P. Dale, Jul 05 2019 *)

Crossrefs

Cf. A061602.

Sequence in context: A306955 A228507 A254499 * A265442 A014080 A182478

Adjacent sequences: A071061 A071062 A071063 * A071065 A071066 A071067

Keyword

base,nonn

Author

Jason Earls, May 26 2002

Status

approved