A030621 (# 4's)-(# 5's) in first n terms of A030604.

0, 0, 0, -1, -1, -1, -1, -1, -1, -1, -2, -1, -1, -1, -1, -1, -1, -2, -1, -1, -1, -1, -1, -1, -2, -2, -1, -1, -2, -2, -1, -2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -2, -1, 0, 0, 0, 0, 0, -1, -2, -2, -2, -3, -3, -3, -3, -3, -2, -2, -2, -2, -2, -2, -3

Offset: 1

Author

Clark Kimberling

Keywords

• sign
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Programs

Mathematica

Accumulate[Which[#==4,1,#==5,-1,True,0]&/@Flatten[IntegerDigits[#,6]&/@ Fibonacci[Range[2,30]]]] (* Harvey P. Dale, Jul 21 2014 *)