%I #6 Sep 15 2019 16:40:12

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

%T 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,

%U 2,2,3,2,2,3,3,3,4,4,4,5,5,5,6,6,7,8,9,10,11

%N a(n)=(# 1's)-(# 2's) in first n terms of A030567.

%t Accumulate[Which[#==1,1,#==2,-1,True,0]&/@Flatten[Table[ Reverse[ IntegerDigits[ n,6]],{n,0,50}]]] (* _Harvey P. Dale_, Sep 15 2019 *)

%K nonn

%O 1,8

%A _Clark Kimberling_