|
| |
|
|
A089366
|
|
Smallest prime whose digital product is >= n.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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]]] (* From Harvey P. Dale, Oct 12 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A113636 A151800 A056896 * A113827 A033189 A008507
Adjacent sequences: A089363 A089364 A089365 * A089367 A089368 A089369
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 07 2003
|
|
|
EXTENSIONS
| More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Sep 15 2005
|
| |
|
|
