%I#36 2024年1月12日22:21:28

%S 3,11878255238983167761440744249889428928826462881385885831，

%电话：8303443038161356653161905116461150924911822811942

%N a（N）是具有h和k互质回文正整数的分数h/k的N位分子，在该分数处abs（h/k-e）最小。

%C a（3）=878对应于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/61716 2.7182740294251。。。

%e 7 4407044/1621261 2.7182816338640。。。

%e 8 24988942/9192919 2.7182815382143。。。

%e 9 882646288/324707423 2.7182818299783。。。

%e。。。

%ta[1]=3；a[n_]：=模块[｛minim=无穷大｝，h=选择[范围[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；hmin=部件[h，i]]]；hmin]；数组[a，9]

%o（PARI）\\请参阅链接中的PARI程序

%Y参见A001113、A002113、A070252、A368617、A3686.19（分母）、A368658。

%Y参考A007676、A007677。

%Y参见A364844（与Pi类似）、A368620、A368681。

%K non、基础、压裂等

%O 1,1号机组

%A _Stefano Spezia，2024年1月1日

%E a（10）-a（14），摘自David a.Corneth，2024年1月3日