login
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