login
A030582
a(n)=(# 1's)-(# 2's) in first n terms of A030567.
0
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
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
KEYWORD
nonn
STATUS
approved