This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A069802 #10 Nov 04 2014 23:02:14
%S A069802 2,3,5,7,17,19,29,37,47,59,79,89,199,269,349,359,379,389,479,499,599,
%T A069802 797,887,997,1889,1999,2689,2699,2789,2879,2897,2999,3889,3989,4789,
%U A069802 4799,4889,4999,6899,8699,8969,8999,25999,27799,27997,28789,28879
%N A069802 Primes related to the nondecreasing subsequence of A053666.
%e A069802 A053666 is sieved in the following way:
%e A069802 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ...
%e A069802 2 3 5 7 1 3 7 9 6 18 3 21 4 12 28 15 ...
%e A069802 2 3 5 7 x x 7 9 x 18 x 21 x x 28 x ...
%e A069802 with the related primes
%e A069802 2 3 5 7 17 19 29 37 47 ...
%e A069802 - _Wolfdieter Lang_, Nov 01 2014
%e A069802 -------------------------------------------------------
%t A069802 t = 0; Do[s = Apply[ Times, IntegerDigits[ Prime[n]]]; If[s >= t, t = s; Print[ Prime[n]]], {n, 1, 10^4}]
%Y A069802 Cf. A067954, A053666.
%K A069802 nonn,base
%O A069802 1,1
%A A069802 _Amarnath Murthy_, Apr 13 2002
%E A069802 Edited and extended by _Robert G. Wilson v_, Apr 15 2002
%E A069802 Edited, name specified, and cross-reference A053666 and example added by _Wolfdieter Lang_, Nov 01 2014