A030330 (# 1's)-(# 0's) in first n terms of A030324.

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

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Programs

Mathematica

Accumulate[Flatten[IntegerDigits[#,2]&/@Fibonacci[Range[2,20]]]/.(0->-1)] (* Harvey P. Dale, May 29 2021 *)