A044938 Number of runs of even length in the base-7 representation of n.

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

Offset

1,392

Links

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

Formula

a(n) = A043559(n) - A044947(n). - Paolo Xausa, Oct 24 2025

Mathematica

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

Crossrefs

Cf. A007093, A043559.

Cf. A044933-A044937, A044939-A044941, A044947.

Sequence in context: A380439 A342019 A323510 * A072401 A064873 A295659

Adjacent sequences: A044935 A044936 A044937 * A044939 A044940 A044941

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved