%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_