A044950 - OEIS

%I #9 Oct 24 2025 11:46:21

%S 1,1,1,1,1,1,1,1,1,2,0,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,2,2,0,2,

%T 2,2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,2,2,0,2,2,

%U 2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,2,2,0,2,2

%N Number of runs of odd length in the base 10 representation of n.

%H Paolo Xausa, <a href="/A044950/b044950.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A043562(n) - A044941(n). - _Paolo Xausa_, Oct 24 2025

%t A044950[n_] := Count[Map[Length, Split[IntegerDigits[n]]], _?OddQ];

%t Array[A044950, 100] (* _Paolo Xausa_, Oct 24 2025 *)

%Y Cf. A044942-A044949, A043562, A044941.

%K nonn,base,easy

%O 1,10

%A _Clark Kimberling_