|
%I #4 May 22 2015 14:58:35
%S 231,729,818,911,1730,1731,2031,2032,2033,2788,3420,3682,3683,3685,
%T 3796,4265,4486,4655,4656,4657,4692,5206,5207,5445,5446,5783,5836,
%U 5837,5840,6051,6063,8758,9756,9757,9954,9979,10003,10006,10123,10303,10321,10416
%N Indices of the start of 9 successive distinct digits in the decimal expansion of e (2.718281828...).
%e 231 is in the sequence because the 9 digits starting at the 231st digit of e are 8, 4, 1, 6, 7, 5, 0, 9, 2.
%o (PARI)
%o default(realprecision, 20080);
%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, 20000, 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(9)
%Y Cf. A001113, A258166.
%K nonn,base
%O 1,1
%A _Colin Barker_, May 22 2015
|
