|
%I #18 Mar 09 2022 12:00:39
%S 24,215,230,282,364,401,503,507,831,875,1032,1127,1302,1353,1667,1686,
%T 1698,1699,1986,2568,2841,3175,3289,3488,3583,3620,3702,3719,3833,
%U 3918,4101,4265,4325,4594,4623,4689,4814,4928,4929,5211,5269,5398
%N Starting positions of strings of 2 3's in the decimal expansion of Pi.
%C Starting positions are counted from and after the decimal point. _Harvey P. Dale_, Mar 09 2022
%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=3;a=RealDigits[Pi,10,2*7! ];lst={};Do[b=a[[1]][[n]];c=a[[1]][[n+1]];If[b==q&&c==q,AppendTo[lst,n-1]],{n,2*7!-1}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 07 2009 *)
%t SequencePosition[RealDigits[Pi,10,6000][[1]],{3,3}][[All,1]]-1 (* _Harvey P. Dale_, Mar 09 2022 *)
%Y Cf. A000796.
%K nonn,base
%O 1,1
%A _Eric W. Weisstein_
|
