login
(# 1's)-(# 0's) in first n terms of A030548.
0

%I #6 Jul 10 2023 18:49:44

%S 1,1,1,1,1,2,1,2,3,4,4,5,5,6,6,7,7,7,6,6,7,7,7,7,7,7,7,7,7,7,6,6,7,7,

%T 7,7,7,7,7,7,7,7,6,6,7,7,7,7,7,7,7,7,7,7,6,6,7,7,7,7,7,7,7,7,7,8,7,6,

%U 7,6,7,8,7,7,8,7,7,8,7,7,8,7,7,8,9,8,9,10,11

%N (# 1's)-(# 0's) in first n terms of A030548.

%t Accumulate[Which[#==1,1,#==0,-1,True,0]&/@Flatten[IntegerDigits[Range[50],6]]] (* _Harvey P. Dale_, Jul 10 2023 *)

%K nonn

%O 1,6

%A _Clark Kimberling_