login
Starting positions of strings of 2 4's in the decimal expansion of Pi.
1

%I #19 Jan 09 2015 08:50:36

%S 59,125,182,201,217,453,511,655,726,804,833,1249,1252,1508,1639,1904,

%T 2085,2261,2309,2350,2707,2708,2764,2799,2827,2845,2928,2929,3109,

%U 3139,3372,3476,3477,3681,3717,3787,3809,3810,3851,3866,3867,3905

%N Starting positions of strings of 2 4's in the decimal expansion of Pi.

%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 q=8!;z=4;a=RealDigits[Pi,10,q];lst={};Do[b=a[[1]][[n]];c=a[[1]][[n+1]];If[b==z&&c==z,AppendTo[lst,n-1]],{n,q-1}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 19 2009 *)

%t Flatten[Position[Partition[Rest[RealDigits[Pi,10,5000][[1]]],2,1],_? (#=={4,4}&)]] (* _Harvey P. Dale_, Jul 20 2011 *)

%Y Cf. A000796.

%K nonn,base

%O 1,1

%A _Eric W. Weisstein_