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

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, 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, 2, 2, 3, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 7, 8, 9, 10, 11

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Programs

Mathematica

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