OFFSET
0,1
COMMENTS
If a(n+1) >a(n) = a(n-1) then the digital product of a(n) = n.
MATHEMATICA
With[{t={#, Times@@IntegerDigits[#]}&/@Prime[Range[30]]}, Transpose[ Flatten[Table[Select[t, Last[#]>=n&, 1], {n, 80}], 1]][[1]]] (* Harvey P. Dale, Oct 12 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 07 2003
EXTENSIONS
More terms from David Wasserman, Sep 15 2005
STATUS
approved