%I #9 Nov 22 2023 19:22:11
%S 8,16,24,32,40,48,49,56,58,59,60,61,62,65,73,81,89,97,98,106,112,113,
%T 115,116,117,118,122,130,138,146,147,155,163,168,169,170,172,173,174,
%U 179,187,195,196,204,212,220,224,225,226,227
%N Positive integers having no fewer base-7 runs of even length than odd.
%t Select[Range[250],Total[If[EvenQ[#],1,-1]&/@(Length/@Split[IntegerDigits[#,7]])]>=0&] (* _Harvey P. Dale_, Nov 22 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|