A050272 Starting positions of strings of 2 9's in the decimal expansion of Pi.

44, 79, 459, 705, 747, 762, 763, 764, 765, 766, 777, 1063, 1073, 1385, 1395, 1428, 1477, 1532, 1730, 1981, 2000, 2071, 2114, 2218, 2241, 2285, 2335, 2436, 2644, 2796, 2910, 2949, 2950, 3089, 3217, 3294, 3508, 3564, 3570, 3673, 3678, 3710

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn
• base

Links

• Index entries for sequences related to the number Pi
• Eric Weisstein's World of Mathematics, Pi Digits

Programs

Mathematica

q=8!;z=9;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 *)
Transpose[SequencePosition[RealDigits[Pi,10,4000][[1]],{9,9}]][[1]]-1 (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Dec 27 2015 *)