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