A044937 Number of runs of even length in base-6 representation of n.

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0

Offset

1,252

Links

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

Formula

a(n) = A043558(n) - A044946(n). - Paolo Xausa, Oct 24 2025

Mathematica

A044937[n_] := Count[Map[Length, Split[IntegerDigits[n, 6]]], _?EvenQ];
Array[A044937, 100] (* Paolo Xausa, Oct 24 2025 *)

Crossrefs

Cf. A007092, A043558.

Cf. A044933-A044936, A044938-A044941, A044946.

Sequence in context: A185708 A373256 A286996 * A025459 A079365 A037822

Adjacent sequences: A044934 A044935 A044936 * A044938 A044939 A044940

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved