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
Examples
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 -------------------------------------------------------
Programs
-
Mathematica
t = 0; Do[s = Apply[ Times, IntegerDigits[ Prime[n]]]; If[s >= t, t = s; Print[ Prime[n]]], {n, 1, 10^4}]
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