|
|
A104781
|
|
Lengths of the sections of decimal expansion of Pi containing all 10 digits at least once.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|