A104781 Lengths of the sections of decimal expansion of Pi containing all 10 digits at least once.

33, 18, 19, 27, 15, 27, 43, 28, 36, 43, 17, 23, 18, 16, 43, 44, 22, 34, 22, 23, 31, 19, 36, 29, 22, 17, 35, 18, 35, 59, 43, 23, 77, 21, 60, 42, 38, 37, 36, 43, 28, 21, 20, 26, 40, 26, 17, 38, 24, 23, 25, 37, 27, 24, 44, 38, 41, 24, 23, 26, 17, 43, 17, 17, 34, 20, 29, 34, 36

Offset

1,1

Links

Table of n, a(n) for n=1..69.

Example

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;
s2 = {2,8,8,4,1,9,7,1,6,9,3,9,9,3,7,5,1,0}: 18 digits;
s3 = {5,8,2,0,9,7,4,9,4,4,5,9,2,3,0,7,8,1,6}: 19 digits; etc.

Mathematica

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 *)

Crossrefs

Sequence in context: A138839 A033353 A192631 * A159001 A304261 A022989

Adjacent sequences: A104778 A104779 A104780 * A104782 A104783 A104784

Keyword

nonn,base

Author

Zak Seidov, Mar 25 2005

Extensions

Edited, corrected and extended by Robert G. Wilson v, Mar 25 2005

Status

approved