A044936 Number of runs of even length in base-5 representation of n.

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

Offset

1,150

Links

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

Formula

a(n) = A043557(n) - A044945(n). - Paolo Xausa, Oct 23 2025

Mathematica

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

Crossrefs

Cf. A007091, A043557.

Cf. A044933-A044935, A044937-A044941, A044945.

Sequence in context: A358755 A172051 A093958 * A133944 A210455 A294936

Adjacent sequences: A044933 A044934 A044935 * A044937 A044938 A044939

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved