A030620 a(n)=(# 3's)-(# 4's) in first n terms of A030604.

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

Offset: 1

Author

Clark Kimberling

Keywords

• sign

Programs

Mathematica

Accumulate[Which[#==3,1,#==4,-1,True,0]&/@Flatten[IntegerDigits[#,6]&/@ Fibonacci[Range[2,30]]]] (* Harvey P. Dale, Jun 22 2017 *)