login
Number of 1's minus number of 0's in first n terms of A030317.
0

%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