A083608 -id:A083608 - cp's OEIS frontend

A083609 Starting positions of strings of six 2's in the decimal expansion of Pi.

963024, 1637080, 1795773, 2523356, 3474036, 5463417, 5803105, 7024615, 9742967, 11836401, 12883291, 13208202, 13371031, 15419528, 15783557, 18183625, 19081176, 20031349, 20363606, 20399387, 20735063, 21682696, 25303344, 31104717, 31614606, 32300569, 33093853, 34422277

Offset: 1

Rick L. Shepherd, May 01 2003

Dave Andersen, Pi-Search Page
Eric Weisstein's World of Mathematics, Pi Digits.
Index entries for sequences related to the number Pi

Cf. A083608 (five "2"s), A118079 (seven "2"s); A037001 = A053746 - 1 (any "2"s).

With[{s = ConstantArray[2, 6]}, SequencePosition[First@ RealDigits@ N[Pi, 10^8], s][[All, 1]] - 1] (* Michael De Vlieger, Mar 20 2017, Version 10.1 *)

More terms from Jinyuan Wang, Feb 29 2020

A083607 Starting positions of strings of four 2's in the decimal expansion of Pi.

Original entry on oeis.org

4902, 7964, 12486, 43405, 50271, 55736, 62920, 65260, 65261, 71778, 83521, 97191, 98423, 103025, 105290, 123462, 125053, 125172, 125656, 138493, 138655, 150949, 162191, 192255, 196397, 204561, 204850, 209562, 216368, 216660, 267139, 272809

Offset: 1

Rick L. Shepherd, May 01 2003

Dave Andersen, Pi-Search Page
Eric Weisstein's World of Mathematics, Pi Digits.
Index entries for sequences related to the number Pi

Cf. A083606 (three 2's), A083608 (five 2's).

$MaxPrecision=10^8;a=RealDigits[Pi,10,9! ];lst={};Do[b=a[[1]][[n]];c=a[[1]][[n+1]];d=a[[1]][[n+2]];e=a[[1]][[n+3]];If[b==2&&c==2&&d==2&&e==2,AppendTo[lst,n-1]],{n,6*6!,9!-3}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 07 2009 *)
With[{p=Partition[Rest[RealDigits[Pi,10,300000][[1]]],4,1]}, Flatten[ Position[ p,{2,2,2,2}]]] (* Harvey P. Dale, Oct 10 2011 *)
Module[{nn=300000,pid},pid=RealDigits[Pi,10,nn][[1]];SequencePosition[ pid,{2,2,2,2}]][[All,1]]-1 (* Harvey P. Dale, Jan 13 2023 *)

cp's OEIS Frontend

A083609 Starting positions of strings of six 2's in the decimal expansion of Pi.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions