OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Select[Range[900], IntegerQ[Times@@(IntegerDigits[#]!)/#]&] (* Harvey P. Dale, Jul 07 2019 *)
PROG
(Haskell)
import Data.List (elemIndices)
a197181 n = a197181_list !! (n-1)
a197181_list = map (+ 1) $ elemIndices 0 $
zipWith mod (map a066459 [1..]) [1..]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Oct 11 2011
STATUS
approved