This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136037 #12 Jul 08 2021 00:47:44
%S A136037 7,8,14,15,16,17,23,24,28,29,30,31,32,33,34,35,39,40,46,47,48,49,55,
%T A136037 56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,78,79,80,81,87,88,
%U A136037 92,93,94,95,96,97,98,99,103,104,110,111,112,113,114,115,116,117,118,119
%N A136037 Numbers with at least three adjacent equal digits in binary representation.
%H A136037 Harvey P. Dale, <a href="/A136037/b136037.txt">Table of n, a(n) for n = 1..2000</a>
%t A136037 Select[Range[150],SequenceCount[IntegerDigits[#,2],{x_,x_,x_}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 04 2020 *)
%o A136037 (Python)
%o A136037 def ok(n): b = bin(n)[2:]; return "000" in b or "111" in b
%o A136037 print(list(filter(ok, range(120)))) # _Michael S. Branicky_, Jul 08 2021
%Y A136037 Cf. A007088.
%Y A136037 Complement of A063037; union of A004779 and A004781.
%Y A136037 Supersequence of A037970.
%K A136037 nonn,base
%O A136037 1,1
%A A136037 _Reinhard Zumkeller_, Dec 11 2007