A030621 - OEIS

%I #12 Jul 22 2014 03:26:13

%S 0,0,0,-1,-1,-1,-1,-1,-1,-1,-2,-1,-1,-1,-1,-1,-1,-2,-1,-1,-1,-1,-1,-1,

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

%U -2,-2,-2,-3,-3,-3,-3,-3,-2,-2,-2,-2,-2,-2,-3

%N (# 4's)-(# 5's) in first n terms of A030604.

%H Vincenzo Librandi, <a href="/A030621/b030621.txt">Table of n, a(n) for n = 1..5000</a>

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

%K sign,base

%O 1,11

%A _Clark Kimberling_