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 A046289 #13 Oct 14 2019 04:27:12
%S A046289 7,11,13,19,20,23,27,28,29,30,33,34,35,36,37,38,39,42,43,48,50,51,54,
%T A046289 55,57,58,60,61,63,68,69,74,79,80,87,88,90,91,93,94,113,115,121,128,
%U A046289 130,139,149,150,168,169,172,173,174,187,229,337,338,376,417
%N A046289 Numbers k such that 2^k contains 2^3=8 as its largest proper substring of the form 2^m (probably finite).
%t A046289 sub2[n_] := Block[{s = ToString[2^n], k = n - 1}, While[k >= 0 && ! StringContainsQ[s, ToString[2^k]], k--]; k]; Select[Range[500], sub2[#] == 3 &] (* _Giovanni Resta_, Oct 14 2019 *)
%Y A046289 Cf. A033921.
%K A046289 nonn,base
%O A046289 1,1
%A A046289 _Patrick De Geest_, Jun 15 1998