|
%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_
|
