|
%I #6 Jun 22 2017 17:45:12
%S 0,0,1,1,1,1,1,1,2,3,3,2,2,3,3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,0,0,-1,
%T -2,-1,-1,0,0,0,0,0,0,0,0,0,-1,-2,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,
%U -1,-1,-1,-1,-1,0,0,0,0,1,0,0,-1,-1,-1,-1,-1,-2
%N a(n)=(# 3's)-(# 4's) in first n terms of A030604.
%t Accumulate[Which[#==3,1,#==4,-1,True,0]&/@Flatten[IntegerDigits[#,6]&/@ Fibonacci[Range[2,30]]]] (* _Harvey P. Dale_, Jun 22 2017 *)
%K sign
%O 1,9
%A _Clark Kimberling_
|
