%I #19 Apr 09 2023 13:10:20
%S 1735,1889,2278,2376,3434,4902,4903,7911,7964,7965,9203,9293,9334,
%T 10427,11704,12486,12487,12857,13040,13562,13725,14668,16679,17619,
%U 17882,19099,19479,21576,25469,26266,26959,27433,29447,30291,30454,30527
%N Starting positions of strings of three 2'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 a=RealDigits[Pi,10,7*7! ];lst={};Do[b=a[[1]][[n]];c=a[[1]][[n+1]];d=a[[1]][[n+2]];If[b==2&&c==2&&d==2,AppendTo[lst,n-1]],{n,6!,7*7!-2}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 07 2009 *)
%t #-1&/@(Flatten[Position[Union[#]&/@Partition[RealDigits[Pi,10,35000][[1]], 3,1],{2}]]) (* _Harvey P. Dale_, Oct 01 2011 *)
%t SequencePosition[RealDigits[Pi,10,35000][[1]],{2,2,2}][[;;,1]]-1 (* _Harvey P. Dale_, Apr 09 2023 *)
%Y Cf. A050215 (two 2's), A083607 (four 2's).
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, May 01 2003