A200259 Numbers k such that k-th prime has an even digit sum.

1, 5, 6, 7, 8, 11, 12, 16, 17, 20, 21, 22, 25, 26, 27, 28, 29, 31, 35, 38, 39, 42, 47, 51, 52, 54, 55, 58, 59, 62, 63, 69, 70, 73, 76, 77, 81, 83, 84, 85, 88, 92, 94, 95, 96, 97, 98, 99, 100, 101, 103, 104, 107, 112, 113, 114, 115, 119, 120, 122, 123, 125

Offset: 1

Author

N. J. A. Sloane, Nov 15 2011

Keywords

• nonn
• base

Links

• T. D. Noe, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A119449, A200260.

Programs

Magma

[ n: n in [1..169] | IsEven(&+Intseq(NthPrime(n)))]; // Bruno Berselli, Nov 15 2011

Mathematica

Select[Range[1000], EvenQ[Total[IntegerDigits[Prime[#]]]] &] (* T. D. Noe, Nov 21 2011 *)