A132782 Numbers with at least one occurrence of '1010' in binary representation.

10, 20, 21, 26, 40, 41, 42, 43, 52, 53, 58, 74, 80, 81, 82, 83, 84, 85, 86, 87, 90, 104, 105, 106, 107, 116, 117, 122, 138, 148, 149, 154, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 180, 181, 186, 202, 208, 209, 210, 211, 212

Offset: 1

Author

Reinhard Zumkeller, Aug 30 2007

Keywords

• nonn
• base

Comments

Complement of A132781; subsequence of A062289; A000975 is a subsequence apart of the initial 4 terms.

Links

• R. Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to binary expansion of n

Programs

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 *)