%I #9 Jan 18 2018 03:48:56
%S 169,182,184,185,186,187,188,189,190,191,192,193,194,197,211,225,239,
%T 253,267,281,295,309,323,337,338,352,364,365,367,368,369,370,371,372,
%U 373,374,375,376,380,394,408,422,436,450,464
%N Positive integers having the same number of base-13 runs of odd length as even.
%t oleQ[n_]:=Module[{oe=Length/@Split[IntegerDigits[n,13]]},Count[oe, _?OddQ] == Length[oe]/2]; Select[Range[500],oleQ] (* _Harvey P. Dale_, Aug 05 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|