|
%I #17 Jan 16 2015 03:06:58
%S 28467,28468,66846,79979,84542,89085,89086,93498,95730,119658,145459,
%T 146043,146044,150803,158335,162369,169124,172951,178501,186291,
%U 190241,191664,193042,214252,217711,222180,231023,235521,263318,263955,297544
%N Starting positions of strings of four 3's in the decimal expansion of Pi.
%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>
%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>
%t Transpose[StringPosition[StringDrop[ToString[N[Pi,9! ]],2],"3333"]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Jun 19 2009 *)
%t Flatten[Position[Partition[RealDigits[Pi,10,300000][[1]],4,1],_?(#== {3,3,3,3}&)]]-1 (* _Harvey P. Dale_, Oct 25 2011 *)
%Y Cf. A083610 (three 3's), A083612 (five 3's).
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, May 01 2003
|
