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 A067109 #11 Jun 01 2019 14:17:16
%S A067109 1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0,0,0,1,0,0,1,0,
%T A067109 0,0,2,0,2,0,0,1,0,1,1,0,0,1,0,0,1,1,1,0,0,1,0,0,1,2,0,0,0,1,1,0,2,1,
%U A067109 1,0,0,2,0,0,1,0,0,2,2,4,1,1,1,1,0,0,0,1,0,0,1,0,1,1,1,2,1,2,5,0
%N A067109 Number of occurrences of the string n in n! (A000142).
%C A067109 a(A033180(n)) > 0. - _Reinhard Zumkeller_, Aug 23 2008
%H A067109 T. D. Noe, <a href="/A067109/b067109.txt">Table of n, a(n) for n=1..1000</a>
%e A067109 a(4) = 1 as 4! = 24 and 4 occurs once;
%e A067109 a(5) = 0 as 5! = 120 does not contain a 5;
%e A067109 a(20) = 1 as 20! = 2432902008176640000 and 20 occurs once.
%t A067109 Table[ Length[ StringPosition[ ToString[n! ], ToString[n]]], {n, 1, 75} ]
%t A067109 Table[SequenceCount[IntegerDigits[n!],IntegerDigits[n],Overlaps->True],{n,100}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 01 2019 *)
%o A067109 (Haskell)
%o A067109 import Data.List (tails, isPrefixOf)
%o A067109 a067109 n = sum $
%o A067109 map (fromEnum . (show n `isPrefixOf`)) (tails $ show $ a000142 n)
%o A067109 -- _Reinhard Zumkeller_, Aug 28 2014
%Y A067109 Cf. A000142, A033180.
%K A067109 nonn,base
%O A067109 1,37
%A A067109 _Amarnath Murthy_, Jan 08 2002
%E A067109 More terms from _Robert G. Wilson v_, Jan 09 2002