OFFSET
1,5
MATHEMATICA
Accumulate[Which[#==1, 1, #==2, -1, True, 0]&/@Rest[Flatten[IntegerDigits[ #, 4]&/@ Fibonacci[Range[30]]]]] (* Harvey P. Dale, Apr 04 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved