A030584 (# 3's)-(# 4's) in first n terms of A030567.

0, 0, 1, 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, 1, 1, 2, 2, 3, 4, 5, 4, 5, 5, 6, 6, 5, 5, 4, 4, 3, 4, 3, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset

1,33

Links

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

Mathematica

Accumulate[Which[#==3, 1, #==4, -1, True, 0]&/@Flatten[Table[Reverse[IntegerDigits[n, 6]], {n, 50}]]] (* Harvey P. Dale, Aug 07 2025 *)

Crossrefs

Sequence in context: A387740 A031250 A031233 * A030564 A205114 A293428

Adjacent sequences: A030581 A030582 A030583 * A030585 A030586 A030587

Keyword

nonn

Author

Clark Kimberling

Status

approved