A031282 a(n)=(# 1's)-(# 2's) in first n terms of A031269.

1, 0, 0, 1, 1, 2, 2, 1, 1, 1, 2, 3, 4, 4, 3, 4, 4, 4, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 5, 5, 5, 4, 4, 5, 4, 4, 3, 2, 1, 0, 0, 0, -1, -1, -1, -1, 0, 0, 1, 2, 2, 1, 2, 3, 2, 2, 2, 2, 2, 2, 2, 1, 0, -1, -1, 0, 1, 1, 1, 2, 2, 1, 2, 3, 3, 3, 3, 4, 5, 4, 3, 3, 3, 3

Offset

1,6

Links

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

Mathematica

Accumulate[Which[#==1, 1, #==2, -1, True, 0]&/@Flatten[Table[ IntegerDigits[ Fibonacci[ n+1], 5], {n, 30}]]] (* Harvey P. Dale, Dec 19 2021 *)

Crossrefs

Sequence in context: A297877 A027926 A114730 * A085685 A267632 A112465

Adjacent sequences: A031279 A031280 A031281 * A031283 A031284 A031285

Keyword

sign

Author

Clark Kimberling

Status

approved