login
Starting positions of strings of four 0's in the decimal expansion of Pi.
1

%I #18 Jun 05 2023 13:25:50

%S 13390,17534,17535,37322,49055,51217,54936,63456,93041,102313,119629,

%T 129328,130642,145266,154373,168318,171928,196073,202377,204243,

%U 211058,211059,213051,215287,215288,235900,237791,254228,254524,275491,293800

%N Starting positions of strings of four 0'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 Transpose[StringPosition[StringDrop[ToString[N[Pi,9! ]],2],"0000"]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Jun 19 2009 *)

%t Flatten[Position[Partition[RealDigits[Pi,10,300000][[1]],4,1],{0,0,0,0}]]-1 (* _Harvey P. Dale_, Feb 27 2013 *)

%t SequencePosition[RealDigits[Pi,10,300000][[1]],{0,0,0,0}][[;;,1]]-1 (* _Harvey P. Dale_, Jun 05 2023 *)

%Y Cf. A050202 (three 0's), A083599 (five 0's).

%K nonn,base

%O 1,1

%A _Rick L. Shepherd_, Apr 30 2003