OFFSET
1,2
COMMENTS
Next term, a(10), if it exists, is > A000931(18440) with more than 2252 digits. - R. J. Mathar, Jan 21 2008
MATHEMATICA
p=Rest[Union[LinearRecurrence[{0, 1, 1}, {1, 0, 0}, 71]]]; Select[p, ContainsNone[IntegerDigits[#], {0}]&&Divisible[#, Times@@IntegerDigits@#]&] (* James C. McMahon, Sep 26 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 05 2006
STATUS
approved