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,1

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

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

Sequence in context: A183195 A098176 A362669 * A267759 A297270 A071590

Adjacent sequences: A132779 A132780 A132781 * A132783 A132784 A132785

Keyword

nonn,base

Author

Reinhard Zumkeller, Aug 30 2007

Status

approved