A043713 - OEIS

%I #12 Oct 27 2025 12:18:34

%S 1,2,3,4,5,6,7,8,9,11,22,33,44,55,66,77,88,99,101,102,103,104,105,106,

%T 107,108,109,111,120,121,123,124,125,126,127,128,129,130,131,132,134,

%U 135,136,137,138,139,140,141,142,143,145,146,147,148,149,150,151,152,153,154

%N Numbers whose base-10 representation has an odd number of runs.

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

%t A043713Q[k_] := OddQ[Length[Split[IntegerDigits[k]]]];

%t Select[Range[200], A043713Q] (* _Paolo Xausa_, Oct 27 2025 *)

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E More terms from _Paolo Xausa_, Oct 27 2025