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

Author

Reinhard Zumkeller, Dec 11 2007

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A007088.

Complement of A063037; union of A004779 and A004781.

Supersequence of A037970.

Programs

Mathematica

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

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