%I#19 2023年1月13日18:47:55
%S 49027964124864340550271557366292065260652617177883521,
%电话:9719198423103025105290123462125053125172125656138493138655,
%电话:150949162191192255196397204561204850209562216368216660267139272809
%N Pi十进制展开式中四个2的字符串的起始位置。
%H Dave Andersen,<a href=“http://www.angio.net/pi/piquery“>Pi-Search页面</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/PiDigits.html“>Pi数字</a>
%H<a href=“/index/Ph#Pi314”>与数字Pi相关的序列的索引条目</a>
%t$MaxPrecision=10^8;a=实际数字[Pi,10,9!];lst={};做[b=a[[1]][[n]];c=a[[1]][[n+1]];d=a[[1]][[n+2]];e=a[[1]][[n+3]];如果[b==2&&c==2&d==2&e==2,追加到[lst,n-1]],{n,6*6!,9!-3}];第1页(*_Vladimir Joseph Stephan Orlovsky,2009年6月7日*)
%t使用[{p=Partition[Rest[RealDigits[Pi,10300000][[1]]],4,1]},Flatten[Position[p,{2,2,2}]](*H arvey p.Dale_,2011年10月10日*)
%t模块[{nn=30000,pid},pid=RealDigits[Pi,10,nn][1];序列位置[pid,{2,2,2,2}]][[All,1]]-1(*哈维·P·戴尔,2023年1月13日*)
%Y参考A083606(三个2’s)、A083608(五个2’s)。
%K基,nonn
%O 1,1号机组
%A _Rick L.Shepherd_,2003年5月1日
|