%I #14 Nov 04 2014 23:01:51
%S 2,3,5,7,17,19,29,47,59,79,89,179,197,199,379,389,479,499,599,797,887,
%T 977,997,1699,1789,1879,1889,1979,1997,1999,2999,3989,4799,4889,4999,
%U 6899,8699,8969,8999,18899,19889,19979,19997
%N Primes related to the nondecreasing subsequence of A007605 (sums of digits of primes).
%C a(1)=2; a(n+1) is the smallest prime with sum of digits >= sum of digits of a(n).
%t t = {s = 2}; Do[If[(y = Total[IntegerDigits[x = Prime[n]]]) >= s, AppendTo[t, x]; s = y], {n, 2, 2500}]; t (* _Jayanta Basu_, Aug 10 2013 *)
%Y Cf. A061248, A007605, A067043, A007953, A000040, A156604, A156673.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Mar 10 2002
|