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 A094018 #3 Mar 30 2012 17:31:00
%S A094018 2,3,4,5,7,10,13,15,17,18,29,31,36,42,45,46,50,66,75,78,80,86,129,132,
%T A094018 134,140,156,165,169,170,174,189,267,293,298,323,389,394,521,535,542,
%U A094018 553,557,594,606,611,618,717,771,812,914,1030,1043,1064,1069,1113,1118
%N A094018 Records in A092762.
%t A094018 f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := g[n] = Block[{k = 1, s = f[n! ]}, While[ StringPosition[s, f[k]] != {}, k++ ]; k]; lst = {}; a = 0; Do[b = g[n]; If[b > a, a = b; AppendTo[lst, a]], {n, 1, 1161}]; lst
%Y A094018 Cf. A092762.
%K A094018 nonn
%O A094018 1,1
%A A094018 _Robert G. Wilson v_, Apr 21 2004