A277140 - OEIS

%I #23 Nov 20 2016 11:01:08

%S 314159265358979323846264338327950,288419716939937510,

%T 5820974944592307816,406286208998628034825342117,67982148086513,

%U 282306647093844609550582231,7253594081284811174502841027019385211055596,4462294895493038196442881097,566593344612847564823378678316527120,1909145648566923460348610454326648213393607

%N 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.

%C Substrings can start with 0. For example, a(5) = 067982148086513.

%H Alois P. Heinz, <a href="/A277140/b277140.txt">Table of n, a(n) for n = 1..10000</a>

%e The first substring of Pi containing all 10 digits is 314159265358979323846264338327950.

%e The next substring of Pi is 288419716939937510.

%e The next substring of Pi is 5820974944592307816.

%e The next substring of Pi is 406286208998628034825342117.

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

%Y Cf. A000796, A104781, A109407, A277135.

%K nonn,base,less

%O 1,1

%A _Bobby Jacobs_, Oct 01 2016

%E Definition clarified by _Felix Fröhlich_, Oct 30 2016