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,8

Links

Table of n, a(n) for n=1..89.

Mathematica

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

Crossrefs

Sequence in context: A102314 A205146 A031248 * A217438 A036762 A032154

Adjacent sequences: A030579 A030580 A030581 * A030583 A030584 A030585

Keyword

nonn

Author

Clark Kimberling

Status

approved