|
|
A258157
|
|
Indices of the start of 10 successive distinct digits in the decimal expansion of Pi.
|
|
4
|
|
|
61, 62, 5471, 5472, 7116, 8669, 12769, 16546, 18806, 18960, 22260, 23573, 26400, 29094, 29383, 30026, 31121, 36106, 36223, 46432, 53222, 53655, 54014, 56108, 56630, 56762, 59717, 66868, 69532, 70815, 71597, 73937, 74181, 88937, 91918, 106693, 107810, 109174
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
61 is in the sequence because the 10 digits starting at the 61st digit of Pi are 4, 5, 9, 2, 3, 0, 7, 8, 1, 6.
|
|
MATHEMATICA
|
pan[s_, n_]:=Select[Range[Length@s-n+1], Length@ Union@ Take[s, {#, #+n-1}]==n&]; pan[RealDigits[Pi, 10, 10^5][[1]], 10] (* Giovanni Resta, May 22 2015 *)
|
|
PROG
|
(PARI)
default(realprecision, 50080);
infix(v, a, b) = {my(i, s=[]); for(i=a, b, s=concat(s, v[i])); s}
panpi(m) = {
L=List(); p=Pi; for(n=1, 50000, 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
}
panpi(10)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|