A127255 - OEIS

%I #6 Aug 04 2023 04:35:46

%S 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,

%T 11,12,13,12,13,12,13,14,15,14,15,16,15,16,17,16,17,16,17,18,17,18,19,

%U 18,19,20,21,20,21,20,21,22,21,22,23,22,23,22,23,24,25

%N Partial sums of A127252.

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

%Y Cf. A127252.

%K nonn,base

%O 0,4

%A _Paul Barry_, Jan 10 2007

%E More terms from _Amiram Eldar_, Aug 04 2023