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

%I #7 Mar 28 2015 22:28:51

%S 33,18,19,27,15,27,43,28,36,43,17,23,18,16,43,44,22,34,22,23,31,19,36,

%T 29,22,17,35,18,35,59,43,23,77,21,60,42,38,37,36,43,28,21,20,26,40,26,

%U 17,38,24,23,25,37,27,24,44,38,41,24,23,26,17,43,17,17,34,20,29,34,36

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

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

%e s3 = {5,8,2,0,9,7,4,9,4,4,5,9,2,3,0,7,8,1,6}: 19 digits; etc.

%t 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 nonn,base

%O 1,1

%A _Zak Seidov_, Mar 25 2005

%E Edited, corrected and extended by _Robert G. Wilson v_, Mar 25 2005