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 A094016 #2 Mar 30 2012 17:31:00
%S A094016 5,10,11,13,22,25,29,31,32,36,41,47,49,50,52,54,57,60,67,69,72,76,79,
%T A094016 88,90,92,98,99,102,104,105,107,109,110,112,113,121,122,125,130,135,
%U A094016 141,143,144,148,150,151,154,160,163,165,168,170,171,174,179,182,184,186
%N A094016 Complement of A092601.
%t A094016 f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := g[n] = Block[{c = 0, k = 1, s = f[n! ]}, While[k <= n, If[ StringPosition[ s, f[k]] != {}, c++ ]; k++ ]; c]; Complement[ Range[200], Union[ Table[ g[n], {n, 202}]]]
%Y A094016 Cf. A092601.
%K A094016 nonn
%O A094016 1,1
%A A094016 _Robert G. Wilson v_, Apr 21 2004