%I #16 Mar 05 2015 16:36:10
%S 1698,4928,6917,7651,8413,8736,8828,12520,17614,21973,22580,22704,
%T 22749,23471,25094,25179,28467,28468,28469,30583,32631,33095,35838,
%U 37507,38597,41392,42438,42734,45756,48033,48207,48369,49287,50547,52794
%N Starting positions of strings of three 3's in the decimal expansion of Pi.
%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>
%H Dave Andersen, <a href="http://www.angio.net/pi/piquery">Pi-Search Page</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PiDigits.html">Pi Digits</a>
%t 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 *)
%t Flatten[Position[Partition[RealDigits[Pi,10,53000][[1]],3,1],{3,3,3}]]-1 (* _Harvey P. Dale_, Mar 05 2015 *)
%Y Cf. A050222 (two 3's), A083611 (four 3's).
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, May 01 2003