A258166 Indices of the start of 10 successive distinct digits in the decimal expansion of e (2.718281828...).

1730, 2031, 2032, 3682, 4655, 5445, 5836, 9756, 10607, 11496, 11497, 11576, 17724, 17951, 18935, 18936, 20948, 21488, 21489, 22519, 26310, 26311, 27436, 42326, 42423, 46644, 50738, 50851, 61950, 62130, 65569, 66123, 66903, 69229, 70682, 71253, 74661, 75184

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

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.

Mathematica

Flatten[Position[Partition[RealDigits[E, 10, 80000][[1]], 10, 1], _?(Length[ Union[ #]]==10&), {1}, Heads->False]] (* Harvey P. Dale, Sep 29 2015 *)

Prog

(PARI)
default(realprecision, 80080);
infix(v, a, b) = {my(i, s=[]); for(i=a, b, s=concat(s, v[i])); s}
pane(m) = {
  L=List(); p=exp(1); for(n=1, 80000, d=floor(p); p=(p-d)*10; listput(L, d)); v=Vec(L);
  s=[]; for(k=1, #v-m+1, in=infix(v, k, k+m-1); if(#in==#vecsort(in, , 8), s=concat(s, k))); s
}
pane(10)

Crossrefs

Cf. A001113, A258167.

Sequence in context: A048949 A339909 A339878 * A130876 A234706 A211853

Adjacent sequences: A258163 A258164 A258165 * A258167 A258168 A258169

Keyword

nonn,base

Author

Colin Barker, May 22 2015

Status

approved