A030362 - OEIS

%I #8 Mar 05 2023 15:21:56

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

%T 4,4,4,4,5,5,5,4,5,5,6,7,8,8,7,7,8,8,7,6,7,8,8,9,10,11,12,12,13,14,15,

%U 14,15,16,15,16,17,16,16,16,17,16,16,15,16,15

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

%t Accumulate[Flatten[Table[IntegerDigits[n,3],{n,1,101,2}]]/.(2->-1)] (* _Harvey P. Dale_, Mar 05 2023 *)

%K nonn

%O 1,2

%A _Clark Kimberling_