OFFSET
1,2
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
KEYWORD
base,nonn
AUTHOR
Jason Earls, May 26 2002
STATUS
approved