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 A046299 #19 Oct 14 2019 04:26:22
%S A046299 105,269,406,463,505,513,518,536,559,570,659,821,924,948,981,993,995,
%T A046299 1013,1081,1133,1136,1165,1199,1246,1279,1281,1312,1330,1331,1344,
%U A046299 1354,1362,1363,1408,1434,1436,1447,1454,1480,1488,1491,1499,1501,1503,1513
%N A046299 Numbers k such that 2^k contains 2^13=8192 as its largest proper substring of the form 2^m.
%e A046299 2^105 = 40564{8192}07303340847894502572032.
%t A046299 sub2[n_] := Block[{s = ToString[2^n], k = n - 1}, While[k >= 0 && ! StringContainsQ[ s, ToString[2^k]], k--]; k]; Select[Range[1513], sub2[#] == 13 &] (* _Giovanni Resta_, Oct 14 2019 *)
%Y A046299 Cf. A033921.
%K A046299 nonn,base
%O A046299 1,1
%A A046299 _Patrick De Geest_, Jun 15 1998
%E A046299 Definition and offset changed by _M. F. Hasler_, Oct 11 2019