A200259 - OEIS

%I #15 Mar 20 2023 13:01:52

%S 1,5,6,7,8,11,12,16,17,20,21,22,25,26,27,28,29,31,35,38,39,42,47,51,

%T 52,54,55,58,59,62,63,69,70,73,76,77,81,83,84,85,88,92,94,95,96,97,98,

%U 99,100,101,103,104,107,112,113,114,115,119,120,122,123,125

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

%H T. D. Noe, <a href="/A200259/b200259.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[1000], EvenQ[Total[IntegerDigits[Prime[#]]]] &] (* _T. D. Noe_, Nov 21 2011 *)

%o (Magma) [ n: n in [1..169] | IsEven(&+Intseq(NthPrime(n)))]; // _Bruno Berselli_, Nov 15 2011

%Y Cf. A119449, A200260.

%K nonn,base

%O 1,2

%A _N. J. A. Sloane_, Nov 15 2011