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

Author

Jason Earls, May 26 2002

Keywords

• base
• nonn

Examples

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

Crossrefs

Cf. A061602.

Programs

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 *)