A044943 Number of runs of odd length in the base 3 representation of n.

1, 1, 2, 0, 2, 2, 2, 0, 1, 3, 3, 1, 1, 1, 3, 3, 1, 1, 3, 3, 3, 1, 3, 1, 1, 1, 2, 2, 2, 4, 2, 4, 4, 4, 2, 0, 2, 2, 2, 0, 2, 2, 2, 0, 2, 4, 4, 4, 2, 4, 2, 2, 2, 2, 2, 2, 4, 2, 4, 4, 4, 2, 2, 4, 4, 2, 2, 2, 4, 4, 2, 0, 2, 2, 2, 0, 2, 2, 2, 0, 1, 3, 3, 3, 1, 3, 3, 3, 1, 3

Offset

1,3

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A044943[n_] := Count[Map[Length, Split[IntegerDigits[n, 3]]], _?OddQ];
Array[A044943, 100] (* Paolo Xausa, Oct 22 2025 *)

Crossrefs

Cf. A007089, A044942, A044944-A044950, A044934.

Sequence in context: A262670 A082054 A327276 * A292118 A277486 A102395

Adjacent sequences: A044940 A044941 A044942 * A044944 A044945 A044946

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved