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

Author

Zak Seidov, Mar 25 2005

Keywords

• nonn
• base

Examples

			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.
		

Programs

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

Extensions

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