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

%I #9 Mar 29 2019 15:11:33

%S 5,10,15,16,20,22,23,26,31,32,37,40,41,43,47,48,53,58,60,61,62,80,85,

%T 90,95,160,165,170,175,240,245,250,255,256,261,266,271,320,321,322,

%U 323,325,330,335,336,340,342,343,346,351,352,357

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

%t evQ[n_]:=Module[{sp=Split[IntegerDigits[n,4]],ev,len},ev=Count[sp,_?(EvenQ[ Length[ #]]&)];len=Length[sp];ev>=len/2]; Select[Range[400],evQ] (* _Harvey P. Dale_, Mar 29 2019 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_