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 A046298 #16 Oct 14 2019 04:26:27
%S A046298 104,268,346,405,455,462,504,512,658,726,820,884,923,947,974,992,994,
%T A046298 1012,1122,1123,1132,1198,1251,1278,1280,1329,1356,1361,1379,1411,
%U A046298 1433,1435,1446,1453,1479,1498,1502,1512,1543,1544,1552,1572,1585,1628,1665
%N A046298 Numbers k such that 2^k contains 2^12=4096 as its largest proper substring of the form 2^m.
%e A046298 2^104 = 20282{4096}03651670423947251286016.
%t A046298 sub2[n_] := Block[{s = ToString[2^n], k = n-1}, While[k >= 0 && ! StringContainsQ[s, ToString[2^k]], k--]; k]; Select[Range[1665], sub2[#] == 12 &] (* _Giovanni Resta_, Oct 14 2019 *)
%Y A046298 Cf. A033921.
%K A046298 nonn,base
%O A046298 1,1
%A A046298 _Patrick De Geest_, Jun 15 1998
%E A046298 Definition reworded and offset changed to 1 by _M. F. Hasler_, Oct 11 2019