OFFSET
1,1
FORMULA
A051802^-1(9)
MATHEMATICA
nzdr9[n_]:=Module[{idn=Select[IntegerDigits[n], #!=0&]}, Times@@idn]; nzdrQ[ n_]:= NestWhile[nzdr9[#]&, n, #>9&]==9; Select[Range[2000], nzdrQ] (* Harvey P. Dale, Sep 09 2014 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Dan Hoey, Dec 09 1999
STATUS
approved