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

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, 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, 14, 15, 16, 15, 16, 17, 16, 16, 16, 17, 16, 16, 15, 16, 15

Offset

1,2

Links

Table of n, a(n) for n=1..80.

Mathematica

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

Crossrefs

Sequence in context: A076494 A217721 A071862 * A007906 A044050 A096826

Adjacent sequences: A030359 A030360 A030361 * A030363 A030364 A030365

Keyword

nonn

Author

Clark Kimberling

Status

approved