login
A127255
Partial sums of A127252.
1
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
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
KEYWORD
nonn,base
AUTHOR
Paul Barry, Jan 10 2007
EXTENSIONS
More terms from Amiram Eldar, Aug 04 2023
STATUS
approved