%I#115 2020年3月30日18:37:43

%S 1,2,3,4,7,6,5,8,9,10,13,16,15,14,17,12,11,18,19,22,21,20,23,24,29,30，

%电话：31,28,25,34,27,26,33,38,35,32,39,40,43,36,37,42,41,48,49,52,45,44,53，

%U 50,47,54,55,46,51,56,57,70,61,66,65,62,69,58,73,64,63,68,59,72,67,60

%N a（N）是序列中尚未出现的最小正整数，使得a（N）+a（N-1）是质数，从a（1）=1开始。

%C序列定义明确（这些项必须在奇偶性中交替，并且根据狄利克雷定理，a（n+1）总是存在的）_N.J.A.Sloane，2017年3月7日

%每个正整数最终都会出现吗_Dmitry Kamenetsky，2009年5月27日。Robert G.Wilson v，2009年5月27日的回复：从概率的角度来看，答案几乎肯定是肯定的。

%C似乎这是A051237行的限制。这些行确实接近一个极限似乎是确定的，并且考虑到这个极限的存在，这个序列就是极限似乎更可能，但这两个猜想都没有证据_Robert G.Wilson v_，2011年3月11日，Franklin T.Adams-Waters编辑，2011年5月17日

%C序列也是“在任意M个连续项的两两和中，N是素数”的特殊情况，其中M=2，N=1。对于其他M、N，请参见A055266和A253074（M=2，N=0）、A329333、A329405-A329416、A329449-A329456、A329.563-A329581和OEIS Wiki页面_M.F.Hasler，2020年2月11日

%H Zak Seidov，n的表，n的a（n）=1..10000（T·D·Noe的前1000个术语）

%H N.J.A.Sloane，N表，N=1..100000的A（N）（使用Orlovsky的Mma程序计算）

%H M.F.Hasler，邻项质数和，OEIS wiki，2019年11月23日

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%F a（2n-1）=A128280（2n-1）-1，a（2n）=A128 280（2 n）+1，对于所有n>=1_M.F.Hasler_，2020年2月11日

%e a（5）=7，因为已经使用了1、2、3和4，4+5=9和4+6=10都不是素数，而4+7=11是素数。

%p A055265:=程序（n）

%p局部a，i，已知；

%p选项记忆；

%p如果n=1，则

%第1页；

%p其他

%p表示从1 do开始的a

%p已知：=假；

%i从1到n-1的p do

%p如果procname（i）=a，那么

%p已知：=真；

%p断裂；

%p end if；

%p端do：

%p如果未知且为isprime（procname（n-1）+a），则

%p返回a；

%p结束if；

%p端do：

%p end if；

%p端程序：

%p序列（A055265（n），n=1..100）；#_R.J.Mathar，2017年2月25日

%t f[s_List]：=块[{k=1，a=s[[-1]]}，而[MemberQ[s，k]||！素数Q[a+k]，k++]；追加[s，k]]；嵌套[f，{1}，71]（*_Robert G.Wilson v_，2009年5月27日*）

%tq=2000；a={1}；z=范围[2,2*q]；当[Length[z]>q-1时，k=1；While[！PrimeQ[z[[k]]+Last[a]]，k++]；附加到[a，z[[k]]]；z=删除[z，k]]；打印[a]（*速度快200倍*）（*_Vladimir Joseph Stephan Orlovsky_，2011年5月3日*）

%o（HP 50G计算器）<<DUPDUP+2->N M L<<{1}1 N 1-对于i L M，对于j DUP j POS，如果j DUP'L'STO M'j'STO END NEXT OVER i GET SWAP WHILE DUP2+DUP ISPRIME？不要重复掉落，在末端旋转之前不要重复1+3拾取位置掉落2+NEXT>>>>_Gerald Hillier_，2008年10月28日

%o（哈斯克尔）

%o导入数据。列表（删除）

%o a055265 n=a055265_列表！！（n-1）

%o a055265_list=1:f 1[2..]其中

%o f x vs=g vs其中

%o g（w:ws）=如果a010051（x+w）==1

%o然后w：f w（删除w vs）其他g ws

%o——Reinhard Zumkeller，2013年2月14日

%o（PARI）v=[1]；n=1；while（n<50，if（i素数（v[v]+n）&&！vecsearch（vecsort（v），n），v=concat（v，n）；n=0）；n++）；v\\_Derek Orr_，2015年6月1日

%o（PARI）U=-a=1；向量（100，k，k=估值（1+U+=1<<a，2）；while（bittest（U，k）||！i素数（a+k），k++）；a=k）\\ M.F.哈斯勒，2020年2月11日

%Y逆置换：A117922；固定点：A117925；A117923=a（a（n））.-_Reinhard Zumkeller，2006年4月3日

%Y参见A036440、A051237、A051239、A055266、A088643。A010051。

%Y参考A086527（素数a（n）+a（n-1））。

%Y参考A070942（n’s，使得a（1..n）是（1..n）的置换）_Zak Seidov，2011年10月19日

%Y另见A076990、A243625。

%Y关于同一序列的偏差，见A282695。

%Y A073659是部分和必须是素数的版本。

%放松，好，不

%O 1,2号机组

%2000年5月9日，安利底特律

%E由Hans Havermann更正，2002年9月24日