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 A104781 #7 Mar 28 2015 22:28:51
%S A104781 33,18,19,27,15,27,43,28,36,43,17,23,18,16,43,44,22,34,22,23,31,19,36,
%T A104781 29,22,17,35,18,35,59,43,23,77,21,60,42,38,37,36,43,28,21,20,26,40,26,
%U A104781 17,38,24,23,25,37,27,24,44,38,41,24,23,26,17,43,17,17,34,20,29,34,36
%N A104781 Lengths of the sections of decimal expansion of Pi containing all 10 digits at least once.
%e A104781 s1 = {3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6,2,6,4,3,3,8,3,2,7,9,5,0}: 33 digits;
%e A104781 s2 = {2,8,8,4,1,9,7,1,6,9,3,9,9,3,7,5,1,0}: 18 digits;
%e A104781 s3 = {5,8,2,0,9,7,4,9,4,4,5,9,2,3,0,7,8,1,6}: 19 digits; etc.
%t A104781 pi = RealDigits[Pi, 10, 10^5][[1]]; lst = {}; k = 10; t = Range[0, 9]; Do[k = 10; While[Union[Take[pi, k]] != t, k++ ]; AppendTo[lst, k]; pi = Drop[pi, k], {n, 69}] (* _Robert G. Wilson v_, Mar 25 2005 *)
%K A104781 nonn,base
%O A104781 1,1
%A A104781 _Zak Seidov_, Mar 25 2005
%E A104781 Edited, corrected and extended by _Robert G. Wilson v_, Mar 25 2005