This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A083637 #18 Feb 16 2025 08:32:49 %S A083637 4751,4752,4985,5871,6070,6850,9338,10229,10527,14298,16763,16910, %T A083637 17164,18483,19469,19752,20337,20807,21225,22192,22216,22770,23079, %U A083637 25062,25196,26886,27750,30086,30633,30687,30796,30797,32251,33850,35639 %N A083637 Starting positions of strings of three 8's in the decimal expansion of Pi. %H A083637 Harvey P. Dale, <a href="/A083637/b083637.txt">Table of n, a(n) for n = 1..1000</a> %H A083637 <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a> %H A083637 Dave Andersen, <a href="http://www.angio.net/pi/piquery">Pi-Search Page</a> %H A083637 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PiDigits.html">Pi Digits.</a> %t A083637 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 *) %t A083637 SequencePosition[RealDigits[Pi,10,36000][[1]],{8,8,8}][[All,1]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 02 2018 *) %Y A083637 Cf. A050263 (two 8's), A083638 (four 8's). %K A083637 base,nonn %O A083637 1,1 %A A083637 _Rick L. Shepherd_, May 05 2003