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

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

Offset: 1

Author

Clark Kimberling

Keywords

• sign

Crossrefs

Cf. A030604.

Programs

Mathematica

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