|
%I #15 Aug 19 2021 06:18:11
%S 1730,2031,2032,3682,4655,5445,5836,9756,10607,11496,11497,11576,
%T 17724,17951,18935,18936,20948,21488,21489,22519,26310,26311,27436,
%U 42326,42423,46644,50738,50851,61950,62130,65569,66123,66903,69229,70682,71253,74661,75184
%N Indices of the start of 10 successive distinct digits in the decimal expansion of e (2.718281828...).
%H Harvey P. Dale, <a href="/A258166/b258166.txt">Table of n, a(n) for n = 1..1000</a>
%e 1730 is in the sequence because the 10 digits starting at the 1730th digit of e are 0, 7, 1, 9, 4, 2, 5, 8, 6, 3.
%t Flatten[Position[Partition[RealDigits[E,10,80000][[1]],10,1],_?(Length[ Union[ #]]==10&),{1},Heads->False]] (* _Harvey P. Dale_, Sep 29 2015 *)
%o (PARI)
%o default(realprecision, 80080);
%o infix(v, a, b) = {my(i, s=[]); for(i=a, b, s=concat(s, v[i])); s}
%o pane(m) = {
%o L=List(); p=exp(1); for(n=1, 80000, d=floor(p); p=(p-d)*10; listput(L, d)); v=Vec(L);
%o s=[]; for(k=1, #v-m+1, in=infix(v, k, k+m-1); if(#in==#vecsort(in,,8), s=concat(s, k))); s
%o }
%o pane(10)
%Y Cf. A001113, A258167.
%K nonn,base
%O 1,1
%A _Colin Barker_, May 22 2015
|
