A200263 a(n) = 1 iff n-th prime has an odd digit sum.

0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1

Offset

1

Comments

Characteristic function of A200260.

Links

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

Mathematica

If[OddQ[Total[IntegerDigits[#]]], 1, 0]&/@Prime[Range[100]] (* Harvey P. Dale, Jul 08 2019 *)

Prog

(Magma) [IsOdd(&+Intseq(NthPrime(n))) select 1 else 0: n in [1..100]];  // Bruno Berselli, Nov 15 2011

Crossrefs

Cf. A200260, A200261.

Sequence in context: A285978 A138712 A029693 * A051067 A288858 A356313

Adjacent sequences: A200260 A200261 A200262 * A200264 A200265 A200266

Keyword

nonn,base

Author

N. J. A. Sloane, Nov 15 2011

Status

approved