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

Links

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

Mathematica

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

Crossrefs

Sequence in context: A165633 A349236 A117456 * A284582 A120336 A284558

Adjacent sequences: A030618 A030619 A030620 * A030622 A030623 A030624

Keyword

sign,base

Author

Clark Kimberling

Status

approved