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