%我#14 2022年11月23日10:08:32

%S 1,1,1,3,1,1,1,3,1,1,9,13,29,3,1,1,37,3,12,23,1,9,49,25,1,39,1,29，

%电话：32,93,67,1,71,27,1,37,79,3,83,13173,69,29,47,1423293,49103,75，

%电话：317,53109,39,37,5912972613671024,1,93,115412692012779232831917

%N由Lehmer多项式x^10+x^9-x^7-x^6-x^5-x^4-x^3+x+1导出的可除序列。A059928中术语的平方根。

%C假定序列包含无穷多个素数。前100项包含33个唯一素数。正如Everest和Ward所述，除了有限个复合n之外，只有当n是素数时，a（n）才能是素数。对于这个序列，n=23*47是a（n）为素数的最大组合。

%D M.Einsiedler，G.Everest，T.Ward，与多项式相关的序列中的素数，LMS J.Comp。数学。3 (2000), 15-29

%D G.Everest，T.Ward，代数动力学中多项式和熵的高度，施普林格，伦敦，1999年。

%H G.Everest和T.Ward，<a href=“https://ueaeprints.uea.ac.uk/19703/1/cubopdf.pdf“>《可分序列中的素数》，古巴马特马蒂马提卡教育出版社（2001），第3（2）页，第245-259页。

%H<a href=“/index/Di#divseq”>可除序列索引</a>

%t CompanionMatrix[p_，x_]：=模块[{cl=系数列表[p，x]，deg，m}，cl=下降[cl/Last[cl]，-1]；deg=长度[cl]；如果[deg==1，{-cl}，m=RotateLeft[IdentityMatrix[deg]]；m[[-1]]=-cl；转座[m]]]；c=伴生矩阵[x^10+x^9-x^7-x^6-x^5-x^4-x^3+x+1，x]；im=标识矩阵[10]；tmp=im；表[tmp=tmp.c；Sqrt[Abs[Det[tmp-im]]]，{n，100}]

%Y参考A059928。

%K nonn公司

%O 1,4型

%A _T.D.Noe_，2003年9月15日