A136037 Numbers with at least three adjacent equal digits in binary representation.

7, 8, 14, 15, 16, 17, 23, 24, 28, 29, 30, 31, 32, 33, 34, 35, 39, 40, 46, 47, 48, 49, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 78, 79, 80, 81, 87, 88, 92, 93, 94, 95, 96, 97, 98, 99, 103, 104, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Mathematica

Select[Range[150], SequenceCount[IntegerDigits[#, 2], {x_, x_, x_}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 04 2020 *)

Prog

(Python)
def ok(n): b = bin(n)[2:]; return "000" in b or "111" in b
print(list(filter(ok, range(120)))) # Michael S. Branicky, Jul 08 2021

Crossrefs

Cf. A007088.

Complement of A063037; union of A004779 and A004781.

Supersequence of A037970.

Sequence in context: A060754 A196129 A286261 * A085334 A047274 A037368

Adjacent sequences: A136034 A136035 A136036 * A136038 A136039 A136040

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 11 2007

Status

approved