A200261 a(n) = 1 iff n-th prime has an even digit sum.

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.

Links

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

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

Cf. A200259, A200263.

Sequence in context: A303561 A284680 A004555 * A288855 A138711 A285617

Adjacent sequences: A200258 A200259 A200260 * A200262 A200263 A200264

Keyword

nonn,base

Author

N. J. A. Sloane, Nov 15 2011

Status

approved