login
a(n)=(# 1's)-(# 2's) in first n terms of A031269.
0

%I #7 Dec 19 2021 11:37:33

%S 1,0,0,1,1,2,2,1,1,1,2,3,4,4,3,4,4,4,3,3,4,4,4,4,5,5,6,6,6,6,6,5,5,5,

%T 4,4,5,4,4,3,2,1,0,0,0,-1,-1,-1,-1,0,0,1,2,2,1,2,3,2,2,2,2,2,2,2,1,0,

%U -1,-1,0,1,1,1,2,2,1,2,3,3,3,3,4,5,4,3,3,3,3

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

%t Accumulate[Which[#==1,1,#==2,-1,True,0]&/@Flatten[Table[ IntegerDigits[ Fibonacci[ n+1],5],{n,30}]]] (* _Harvey P. Dale_, Dec 19 2021 *)

%K sign

%O 1,6

%A _Clark Kimberling_