%I#62 2021年4月23日11:59:41

%S 3,44355319599797338337195419351801438576574089096167950454，

%电话：42106686282983339177173895893776893794960529682104，

%电话：4282245933493046134899525417045666274455928888874300109465910069243529338625027860869031760317501671652140

%N分数中的最小分子，其中N位分子和N位分母最接近Pi。

%D O.Zelenyak，《Turbo Pascal编程研讨会：任务、算法和解决方案》，升，2018年，第255页。（提供前8个术语。还包含sqrt（2）和e的类似序列。）

%H Jon E.Schoenfield，n的表，n=1..1000时的a（n）</a>

%H Jon E.Schoenfield，岩浆程序</a>

%H O.Zelenyak，<a href=“https://books.google.com/books？id=JeUJAQAAQBAJ&amp;pg=PA255&amp；lpg=PA255&amp；dq=44+355+3195+99733&amp；源=bl&amp；ots=IFjYEQyUTl&amp；sig=ACfU3U3B-fXt58iDehAppCK6kuNTNnI8Xw&amp；hl=en&amp；sa=X（X）；ved=2ahUKEwjMlufQxbTkAhXlQ98K地址AA0Q6AEwBXoECAkQAQ#v=一页&amp；q=44%20355%203195%2099733&amp；f=false“>Turbo Pascal编程研讨会：任务、算法和解决方案，Litres，2018年，第255页。

%e分子和分母为2位数的分数最接近Pi为44/14和88/28。分子为6位，分母为6位的分数最接近Pi为833719/265381。

%t（*给定第8项，找到第9项*）

%t（*在笔记本电脑上运行需要12个多小时*）

%t结果列表={}；

%t nVal=9；

%t tol=绝对值[80143857/25510582-Pi]；（*80143857是A327360（8），25510582是A327361（8）*）

%t执行[

%t CurrentNumerator=i；

%t执行[

%t电流分母=j；

%t Current Quotient=N[当前分子/当前分母]；

%t如果[

%t Abs[当前商-Pi]<=tol，

%t结果列表=追加[ResultList，{CurrentNumerator，CurrentDenominator}]

%t]，

%t{j，楼层[i/（Pi+tol）]，楼层[i/（Pi-tol）]+1}]，

%t{i，楼层[（Pi-tol）*10^（nVal-1）]，（10^nVal-1；

%t差异列表=

%t表格[

%t Abs[ResultList[[i，1]]/ResultList[[i，2]]-Pi]，

%t｛i，1，Length〔ResultList〕｝〕；

%t提取[ResultList，Position[DifferenceList，Min[DiferenceList]]

%Y A327361给出了相应的分母。

%Y参考A072398/A072399，它给出了受不同约束的Pi的最佳有理逼近。

%Y参考A002485/A002486、A063674/A063673、A325158/A325159。

%K基，压裂，非

%O 1,1号机组

%A _Jason Zimba，2019年9月3日

%E来自Jon E.Schoenfield_2021年3月11日的条款a（10）及其后