A083610 Starting positions of strings of three 3's in the decimal expansion of Pi.

1698, 4928, 6917, 7651, 8413, 8736, 8828, 12520, 17614, 21973, 22580, 22704, 22749, 23471, 25094, 25179, 28467, 28468, 28469, 30583, 32631, 33095, 35838, 37507, 38597, 41392, 42438, 42734, 45756, 48033, 48207, 48369, 49287, 50547, 52794

Offset: 1

Author

Rick L. Shepherd, May 01 2003

Keywords

• base
• nonn

Links

• Index entries for sequences related to the number Pi
• Dave Andersen, Pi-Search Page
• Eric Weisstein's World of Mathematics, Pi Digits

Crossrefs

Cf. A050222 (two 3's), A083611 (four 3's).

Programs

Mathematica

q=9!;z=3;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 *)
Flatten[Position[Partition[RealDigits[Pi,10,53000][[1]],3,1],{3,3,3}]]-1 (* Harvey P. Dale, Mar 05 2015 *)