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

Comments

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

Links

Table of n, a(n) for n=1..43.

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

Crossrefs

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

Sequence in context: A301918 A127042 A069802 * A061248 A059498 A247147

Adjacent sequences: A067951 A067952 A067953 * A067955 A067956 A067957

Keyword

nonn,base

Author

Reinhard Zumkeller, Mar 10 2002

Status

approved