%I #10 Feb 17 2020 07:48:59
%S 1,2,3,4,3,4,5,6,7,8,7,6,7,8,7,8,9,10,11,10,11,12,13,14,15,16,15,14,
%T 13,14,15,14,13,14,15,16,15,16,15,16,17,16,17,18,19,20,21,20,19,20,21,
%U 22,21,22,23,24,25,26,25,26,27,28,29,30,31,32
%N Number of 1's minus number of 0's in first n terms of A030317.
%t Accumulate[Flatten[Table[IntegerDigits[2n - 1, 2], {n, 50}]] /. 0 -> -1] (* _Alonso del Arte_, Feb 16 2020 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Name clarified by _Alonso del Arte_, Feb 10 2020