%I#64 2024年2月17日10:31:05

%S 2,4,9,24,34,46,30282,9915418926336742959073821711833302，

%电话：219118791831797030773427225379380284612452236448688，

%电话：1486212542157833385342021902617006447732833859014357

%第N个和第1个素数是第一对相差2n的素数；如果不存在这样的素数对，则a（n）=-1。

%有人知道对所有自然数n定义了a（n）的证明吗，即f:n->prime（n+1）-prime（n）是来自n-{1}->e的满射映射，其中n，e分别是自然数和偶数的集合_Joseph L.Pe_，2002年12月14日

%当（但不仅当）de Polignac猜想为真时，C a（n）被定义为所有n_Harry J.Smith，2003年7月22日

%H Reinhard Zumkeller，n表，n=1..111的a（n）</a>

%H詹姆斯·梅纳德，<a href=“https://arxiv.org/abs/11114600“>素数之间的小差距</a>，arXiv:1311.4600[math.NT]，2013-2019。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/dePolignacsConjecture.html“>de Polignac的推测。

%F a（n）=A000720（A000230（n））_M.F.Hasler，2011年1月16日

%F A001223（a（n））=2*n和A001222（m）！=m<a（n）时为2*n_Reinhard Zumkeller，2015年8月23日

%t表格[k=0；而[k++；p1=Prime[k]；p2=素数[k+1]；（p2-p1）！=n] ；k、 {n，2200，2}]（*雷州，2005年3月1日*）

%t使用[{d=Differences[Prime[Range[50000]]]}，Flatten[Table[Position[d，2n，1,1]，{n，50}]]（*此程序比上述第一个Mathematica程序快很多倍。*）（*哈维·P·戴尔，2012年11月24日*）

%o（PARI）第一个（m）=我的（v=向量（m），n）；对于（n=1，m，v[n]=0；直到（2*n==素数（v[n]+1）-素数（v[n]），v[n]++））；v、 \\_Anders Hellström，2015年7月19日

%o（哈斯克尔）

%o导入数据。列表（elemIndex）；导入数据。也许（来自Just）

%o a038664=（+1）。来自Just。（`elemIndex`a001223_list）。(* 2)

%o——Reinhard Zumkeller，2015年8月23日

%Y参见A000230、A000720、A001223、A261525。

%K非n

%O 1,1号机组

%杰夫·伯奇（_Jeff Burch）_

%E 2001年4月13日，米歇尔·腾·沃德的更多术语

%根据n.J.a.Sloane于2020年2月2日提出的Alexander Wajnberg建议，E“a（n）=-1 if…”被添加到定义中