A069802 Primes related to the nondecreasing subsequence of A053666.

2, 3, 5, 7, 17, 19, 29, 37, 47, 59, 79, 89, 199, 269, 349, 359, 379, 389, 479, 499, 599, 797, 887, 997, 1889, 1999, 2689, 2699, 2789, 2879, 2897, 2999, 3889, 3989, 4789, 4799, 4889, 4999, 6899, 8699, 8969, 8999, 25999, 27799, 27997, 28789, 28879

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Example

A053666 is sieved in the following way:
1  2  3  4  5  6  7  8  9  10 11  12 13  14  15 16 ...
2  3  5  7  1  3  7  9  6  18  3  21  4  12  28 15 ...
2  3  5  7  x  x  7  9  x  18  x  21  x   x  28  x ...
with the related primes
2  3  5  7       17 19     29     37         47    ...
- Wolfdieter Lang, Nov 01 2014
-------------------------------------------------------

Mathematica

t = 0; Do[s = Apply[ Times, IntegerDigits[ Prime[n]]]; If[s >= t, t = s; Print[ Prime[n]]], {n, 1, 10^4}]

Crossrefs

Cf. A067954, A053666.

Sequence in context: A090432 A301918 A127042 * A067954 A061248 A059498

Adjacent sequences: A069799 A069800 A069801 * A069803 A069804 A069805

Keyword

nonn,base

Author

Amarnath Murthy, Apr 13 2002

Extensions

Edited and extended by Robert G. Wilson v, Apr 15 2002

Edited, name specified, and cross-reference A053666 and example added by Wolfdieter Lang, Nov 01 2014

Status

approved