|
|
A083637
|
|
Starting positions of strings of three 8's in the decimal expansion of Pi.
|
|
2
|
|
|
4751, 4752, 4985, 5871, 6070, 6850, 9338, 10229, 10527, 14298, 16763, 16910, 17164, 18483, 19469, 19752, 20337, 20807, 21225, 22192, 22216, 22770, 23079, 25062, 25196, 26886, 27750, 30086, 30633, 30687, 30796, 30797, 32251, 33850, 35639
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
q=9!; z=8; a=RealDigits[Pi, 10, q]; lst={}; Do[b=a[[1]][[n]]; c=a[[1]][[n+1]]; d=a[[1]][[n+2]]; If[b==z&&c==z&&d==z, AppendTo[lst, n-1]], {n, q-2}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 19 2009 *)
SequencePosition[RealDigits[Pi, 10, 36000][[1]], {8, 8, 8}][[All, 1]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 02 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|