A127255 Partial sums of A127252.

1, 0, 1, 2, 1, 2, 3, 2, 3, 4, 5, 4, 5, 4, 5, 6, 5, 6, 7, 6, 7, 6, 7, 8, 9, 8, 9, 10, 9, 10, 11, 10, 11, 12, 13, 12, 13, 12, 13, 14, 15, 14, 15, 16, 15, 16, 17, 16, 17, 16, 17, 18, 17, 18, 19, 18, 19, 20, 21, 20, 21, 20, 21, 22, 21, 22, 23, 22, 23, 22, 23, 24, 25

Offset: 0

Author

Paul Barry, Jan 10 2007

Keywords

• nonn
• base

Crossrefs

Cf. A127252.

Programs

Mathematica

Accumulate[Table[If[EvenQ[IntegerExponent[n, 2]] && OddQ[DigitCount[n, 2, 1]], -1, 1], {n, 0, 100}]] (* Amiram Eldar, Aug 04 2023 *)

Extensions

More terms from Amiram Eldar, Aug 04 2023