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,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A076258 A259576 A330636 * A286579 A293689 A059261

Adjacent sequences: A030327 A030328 A030329 * A030331 A030332 A030333

Keyword

nonn

Author

Clark Kimberling

Status

approved