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
KEYWORD
nonn,base
AUTHOR
Paul Barry, Jan 10 2007
EXTENSIONS
More terms from Amiram Eldar, Aug 04 2023
STATUS
approved