%I#27 2024年1月12日22:21:47
%S 1,4323939143416171616212619192919324707423509838905,
%电话:3054666450359359795395332973737923391647454619
%N a(N)是具有h和k互质回文正整数的分数h/k的N位分母,其中abs(h/k-e)最小。
%C a(3)=323对应于A368617的分母。
%H David A.Corneth,PARI计划</a>
%H<a href=“/index/Ea”>与数字e相关的序列的索引条目</a>
%e n分数近似值
%e--------------------------------------
%e 1 3/1 3
%e 2 11/4 2.75
%e 3 878/323 2.7182662538699。。。
%e 4 2552/939 2.7177848775292。。。
%e 5 38983/14341 2.7182902168607。。。
%e 6 167761/6716 2.7182740294251。。。
%e 7 4407044/1621261 2.7182816338640。。。
%e 8 24988942/9192919 2.7182815382143。。。
%e 9 882646288/324707423 2.7182818299783。。。
%e。。。
%ta[1]=1;a[n_]:=模[{minim=Infinity},h=Select[Range[10^(n-1),10^n-1],回文Q];lh=长度【h】;对于[i=1,i<=lh,i++,k=Select[Range[Floor[Part[h,i]/E],Ceiling[Part[Ch,i]/E],PalindromeQ];lk=长度[k];对于[j=1,j<=lk,j++,如果[(dist=Abs[Part[h,i]/Part[k,j]-E])<minim&&GCD[Part[h,i],Part[k,j]]==1,minim=dist;kmin=零件[k,j]]];kmin];数组[a,9]
%o(PARI)\\请参阅链接中的PARI程序
%Y参见A001113、A002113、A070252、A368617、A3686818(分子)、A368658。
%Y参考A007676、A007677。
%Y参见A364845(与Pi类似)、A368620、A368681。
%K non、基础、压裂等
%O 1、2
%A _Stefano Spezia,2024年1月1日
%E a(10)-a(14),摘自David a.Corneth,2024年1月3日
|