login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A200261
a(n) = 1 iff n-th prime has an even digit sum.
4
1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0
OFFSET
1
COMMENTS
Characteristic function of A200259.
MATHEMATICA
Table[1 - Mod[Total[IntegerDigits[Prime[n]]], 2], {n, 100}] (* T. D. Noe, Nov 21 2011 *)
PROG
(Magma) [IsEven(&+Intseq(NthPrime(n))) select 1 else 0: n in [1..100]]; // Bruno Berselli, Nov 15 2011
CROSSREFS
Sequence in context: A284680 A004555 A372573 * A288855 A138711 A285617
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 15 2011
STATUS
approved