OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved