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,4

Links

Table of n, a(n) for n=0..72.

Mathematica

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

Crossrefs

Cf. A127252.

Sequence in context: A036576 A171729 A356999 * A174832 A076827 A165477

Adjacent sequences: A127252 A127253 A127254 * A127256 A127257 A127258

Keyword

nonn,base

Author

Paul Barry, Jan 10 2007

Extensions

More terms from Amiram Eldar, Aug 04 2023

Status

approved