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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A119449, A200260.

Sequence in context: A319266 A263093 A115839 * A339746 A262513 A130206

Adjacent sequences: A200256 A200257 A200258 * A200260 A200261 A200262

Keyword

nonn,base

Author

N. J. A. Sloane, Nov 15 2011

Status

approved