A030619 - OEIS

%I #8 May 20 2021 14:44:13

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

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

%U 7,7,6,6,6,6,6,6,6,6,6,6,6,6,6,5,4,4,5,5,5,6

%N a(n) = (# 2's)-(# 3's) in first n terms of A030604.

%t Accumulate[Which[#==2,1,#==3,-1,True,0]&/@Flatten[IntegerDigits[#,6]&/@ Fibonacci[Range[2,30]]]] (* _Harvey P. Dale_, Feb 08 2015 *)

%Y Cf. A030604.

%K sign

%O 1,7

%A _Clark Kimberling_