login
A200259
Numbers k such that k-th prime has an even digit sum.
4
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
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
Sequence in context: A319266 A263093 A115839 * A339746 A262513 A130206
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 15 2011
STATUS
approved