A030603 (# 3's)-(# 4's) in first n terms of A030588.

0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 7, 7, 6, 6, 5, 6, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 11, 12, 12, 13, 13, 13, 12, 12, 12, 11, 12, 12, 11, 11, 11, 11, 11

Offset

1,7

Links

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

Mathematica

Accumulate[Which[#==3, 1, #==4, -1, True, 0]&/@Flatten[Table[ IntegerDigits[ 2n-1, 6], {n, 50}]]] (* Harvey P. Dale, Dec 02 2014 *)

Crossrefs

Sequence in context: A072748 A174631 A278949 * A092670 A210528 A120450

Adjacent sequences: A030600 A030601 A030602 * A030604 A030605 A030606

Keyword

nonn

Author

Clark Kimberling

Status

approved