A044941 Number of runs of even length in base-10 representation of n.

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

Offset

1,1100

Links

Alois P. Heinz, Table of n, a(n) for n = 1..65536

Formula

a(n) = A043562(n) - A044950(n). - Paolo Xausa, Oct 24 2025

Mathematica

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

Crossrefs

Cf. A153435 (n where new high).

Cf. A044933-A044940, A043562, A044950.

Sequence in context: A185705 A369667 A358773 * A368699 A277151 A277155

Adjacent sequences: A044938 A044939 A044940 * A044942 A044943 A044944

Keyword

nonn,easy,base,easy

Author

Clark Kimberling

Extensions

Incorrect formulas and programs (as pointed out by Kevin Ryde) removed by Joerg Arndt, Nov 08 2020

Status

approved