%I#39 2018年9月18日21:51:21

%S 2,3,7,13,23,29,43,47,53,67,71,79,83,89101103109113127131，

%电话1371491571671731992232239263269277281311317337，

%电话：34935335937338338939741409421449457461467479487491

%N引物p，使得p不分割Apery序列A005259的任何项。

%C Malik和Straub给出的论点表明这个序列是无限的_N.J.A.Sloane，2017年8月6日

%H Robert Price，n的表，n=1..758的a（n）</a>

%H Amita Malik和Armin Straub，<a href=“https://doi.org/10.1007/s40993-016-0036-8“>散发Apéry-like数的可除性。

%H Amita Malik，生成此序列的Mathematica笔记本和A260793、A291275-A291284</a>

%H Amita Malik，<a href=“/A133370/A133370.pdf”>此序列和A260793、A291275-A291284以及Mathematica代码中最多10000个素数的列表</a>

%H E.Rowland，R.Yassawi，<a href=“https://arxiv.org/abs/1310.8635“>有理函数对角线的自动同余</a>，arXiv-print arXiv:1310.8635[math.NT]，2013。

%t NeverDividesLucasSeqQ[a_，p_]：=与@@表[Mod[a[n]，p]>0，{n，0，p-1}]；

%t A3[a，b，c，n_/；n＜0]=0；

%tA3[a_，b_，c_，0]=1；

%t A3[a_，b_，c_，n]：=A3[a，b，c，n]=（（2n-1）（a（n-1）^2+a（n-1）+b））A3[a、b、c，n-1]-c（n-1；

%tA3[a_，b_，c_，d_，n_/；n<0]=0；

%t阿加玛[n_]：=A3[17，5，1，n]；

%t Select[Range[1000]，PrimeQ[#]&&NeverDividesLucasSeqQ[Agamma，#]&]（*Jean-François Alcover_，2018年8月5日，摘自Amita Malik的笔记本*）

%Y对于不除序列A000172、A005258、A002893、A081085、A006077、A093388、A125143、A229111、A00289、A290575、A29057、A00525的项的素数，分别参见A260793、A291275-A291284和A133370。

%K nonn公司

%O 1，1

%A _Philippe Deléham，2007年10月27日

%E阿米塔·马利克（Amita Malik）计算的第a（16）条之后的条款-N.J.a.Sloane，2017年8月21日