A030383 (# 1's)-(# 0's) in first n terms of A030373.

1, 1, 1, 2, 1, 2, 3, 4, 4, 5, 5, 5, 4, 4, 5, 5, 5, 5, 5, 5, 4, 4, 5, 5, 5, 5, 5, 6, 5, 4, 5, 4, 5, 6, 5, 5, 6, 5, 5, 6, 7, 6, 7, 8, 9, 10, 11, 11, 12, 13, 13, 14, 14, 13, 14, 14, 15, 16, 16, 16, 17, 17, 17, 18, 18, 17, 18, 18, 19, 20, 20, 20, 21, 21, 21

Offset

1,4

Links

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

Mathematica

Accumulate[Which[#==1, 1, #==0, -1, True, 0]&/@Flatten[IntegerDigits[Range[40], 4]]] (* Harvey P. Dale, May 23 2026 *)

Crossrefs

Sequence in context: A230989 A321392 A030339 * A031231 A030562 A238219

Adjacent sequences: A030380 A030381 A030382 * A030384 A030385 A030386

Keyword

nonn

Author

Clark Kimberling

Status

approved