|
%I #6 Jan 14 2024 17:09:45
%S 1,1,2,1,2,2,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,5,4,3,4,3,3,4,3,3,4,5,6,
%T 7,8,8,9,9,8,9,9,9,10,10,10,11,11,12,13,13,13,14,14,13,14,14,14,15,15,
%U 15,15,14,15,15,14,14,14,15,14,14,15,15,15,16
%N a(n)=(# 1's)-(# 0's) in first n terms of A031253.
%t Accumulate[Flatten[Table[IntegerDigits[2n-1,5]/.{0->-1,2->0,3->0,4->0},{n,60}]]] (* _Harvey P. Dale_, Jan 14 2024 *)
%K nonn
%O 1,3
%A _Clark Kimberling_
|
