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

Links

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

Mathematica

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

Crossrefs

Cf. A030604.

Sequence in context: A219496 A163534 A255124 * A016370 A334577 A219494

Adjacent sequences: A030616 A030617 A030618 * A030620 A030621 A030622

Keyword

sign

Author

Clark Kimberling

Status

approved