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,9

Links

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

Mathematica

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

Crossrefs

Sequence in context: A059252 A349319 A251619 * A348241 A110764 A107901

Adjacent sequences: A030617 A030618 A030619 * A030621 A030622 A030623

Keyword

sign

Author

Clark Kimberling

Status

approved