A200247 Partial sums of A200246.

1, 1, 1, 2, 3, 4, 4, 5, 5, 5, 6, 7, 8, 8, 9, 9, 10, 11, 12, 12, 13, 14, 14, 14, 15, 15, 16, 17, 18, 18, 19, 20, 21, 21, 21, 22, 23, 23, 24, 25, 26, 27, 28, 29, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 38, 38, 38, 39, 39, 39, 40, 40, 41, 41, 42, 42, 43, 43, 43

Offset: 1

Author

N. J. A. Sloane, Nov 15 2011

Keywords

• nonn

Links

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

Programs

Mathematica

Accumulate[If[OddQ[Total[IntegerDigits[#,2]]],1,0]&/@Prime[Range[90]]] (* Harvey P. Dale, Jun 04 2012 *)