login
A030619
a(n) = (# 2's)-(# 3's) in first n terms of A030604.
0
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
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
KEYWORD
sign
STATUS
approved