A030425 - OEIS

%I #6 Dec 16 2022 17:34:07

%S 0,1,0,0,0,1,1,0,0,0,0,0,1,1,2,1,1,0,0,0,1,1,2,2,2,2,1,2,3,3,3,3,2,3,

%T 3,4,4,5,5,6,5,4,4,5,4,4,5,5,4,3,3,4,5,5,5,6,6,6,6,6,6,6,6,6,6,7,8,8,

%U 9,8,8,9,10,11,10,10,10,11,11,11,11,11,11,12

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

%t Accumulate[Rest[Flatten[IntegerDigits[#,4]&/@Fibonacci[Range[30]]]]/.{2->1,3->-1,1->0}] (* _Harvey P. Dale_, Dec 16 2022 *)

%K nonn

%O 1,15

%A _Clark Kimberling_