%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_