A089366 Smallest prime whose digital product is >= n.

2, 2, 3, 5, 5, 7, 7, 19, 19, 29, 29, 29, 29, 29, 29, 29, 29, 29, 37, 37, 37, 47, 47, 47, 47, 47, 47, 47, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 89, 89, 89, 89, 89, 89, 89, 89, 89

Offset

0,1

Comments

If a(n+1) >a(n) = a(n-1) then the digital product of a(n) = n.

Links

Table of n, a(n) for n=0..71.

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

Sequence in context: A259430 A290838 A056896 * A113827 A033189 A008507

Adjacent sequences: A089363 A089364 A089365 * A089367 A089368 A089369

Keyword

base,easy,nonn

Author

Amarnath Murthy, Nov 07 2003

Extensions

More terms from David Wasserman, Sep 15 2005

Status

approved