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