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

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

Offset

1,28

Links

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

Mathematica

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

Crossrefs

Sequence in context: A062187 A334485 A347824 * A293229 A185437 A335660

Adjacent sequences: A031280 A031281 A031282 * A031284 A031285 A031286

Keyword

sign

Author

Clark Kimberling

Status

approved