login
Positive integers having no fewer base-11 runs of even length than odd.
0

%I #9 Jun 12 2020 16:20:11

%S 12,24,36,48,60,72,84,96,108,120,121,132,134,135,136,137,138,139,140,

%T 141,142,145,157,169,181,193,205,217,229,241,242,254,264,265,267,268,

%U 269,270,271,272,273,274,278,290,302,314,326

%N Positive integers having no fewer base-11 runs of even length than odd.

%t nfelQ[n_]:=Total[If[OddQ[Length[#]],-1,1]&/@Split[IntegerDigits[n,11]]]>=0; Select[Range[400],nfelQ] (* _Harvey P. Dale_, Jun 12 2020 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_