OFFSET
1,1
COMMENTS
LINKS
MAPLE
q:= n-> verify([0, 1, 0, 1], Bits[Split](n), 'sublist'):
select(q, [$0..300])[]; # Alois P. Heinz, Oct 22 2021
MATHEMATICA
Select[Range[250], SequenceCount[IntegerDigits[#, 2], {1, 0, 1, 0}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 08 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 30 2007
STATUS
approved