|
|
A277140
|
|
Earliest substring of the decimal expansion of Pi containing any of the 10 decimal digits at least once and disjoint from all earlier such substrings.
|
|
2
|
|
|
314159265358979323846264338327950, 288419716939937510, 5820974944592307816, 406286208998628034825342117, 67982148086513, 282306647093844609550582231, 7253594081284811174502841027019385211055596, 4462294895493038196442881097, 566593344612847564823378678316527120, 1909145648566923460348610454326648213393607
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Substrings can start with 0. For example, a(5) = 067982148086513.
|
|
LINKS
|
|
|
EXAMPLE
|
The first substring of Pi containing all 10 digits is 314159265358979323846264338327950.
The next substring of Pi is 288419716939937510.
The next substring of Pi is 5820974944592307816.
The next substring of Pi is 406286208998628034825342117.
|
|
MATHEMATICA
|
pi = RealDigits[Pi, 10, 300][[1]]; f := Block[{k = 10}, While[ Union[ Take[pi, k]] != Range[0, 9], k++]; a = Take[pi, k]; pi = Drop[pi, k]; FromDigits@ a]; lst = {}; Do[ AppendTo[lst, f], {10}]; lst (* Robert G. Wilson v, Nov 17 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|