A067954 Primes related to the nondecreasing subsequence of A007605 (sums of digits of primes).

2, 3, 5, 7, 17, 19, 29, 47, 59, 79, 89, 179, 197, 199, 379, 389, 479, 499, 599, 797, 887, 977, 997, 1699, 1789, 1879, 1889, 1979, 1997, 1999, 2999, 3989, 4799, 4889, 4999, 6899, 8699, 8969, 8999, 18899, 19889, 19979, 19997

Offset: 1

Author

Reinhard Zumkeller, Mar 10 2002

Keywords

• nonn
• base

Comments

a(1)=2; a(n+1) is the smallest prime with sum of digits >= sum of digits of a(n).

Crossrefs

Cf. A061248, A007605, A067043, A007953, A000040, A156604, A156673.

Programs

Mathematica

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 *)