OFFSET
1,1
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
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
