%I#48 2022年5月22日13:59:42

%序号1,2,3,6,7,8,14,16,17,21,73801197133323469350943187986

%N设F（N）=Q（N）-P（N）为幸运数（A005235）；序列给出n，使得F（n）=素数（n+1）。

%C正n，使得A002110（n）+A000040（n+1）是素数_罗伯特·伊斯雷尔，2015年12月2日

%C A265109的后续_阿尔图格·阿尔坎，2015年12月2日

%H Antonín Co ejchan、Michal Křízi ek和Lawrence Somer，<a href=“https://cs.uwaterloo.ca/journals/JIS/VOL25/Krizek/krizek3.html“>关于因子和素数附近素数的显著性质，整数序列杂志，第25卷（2022年），第22.1.4条。

%H S.W.Golomb，<a href=“http://www.jstor.org/stable/2689634“>《财富》猜想的证据，《数学杂志》54（1981），209-210。

%e a（10）=21，因为A002110（21）+素数（22）=4072968059924902150621323549=2*3*5**67*71*73+79是质数。

%p p：=3：

%p A[1]：=1：

%p计数：=1:

%p初级：=2：

%p代表n从2到1000 do

%p初级：=初级*p；

%p:=下一素数（p）；

%p如果isprime（Primorial+p），则

%p计数：=计数+1；

%p A[计数]：=n；

%功率因数

%日期：

%p序列（A[i]，i=1..计数）；#_罗伯特·伊斯雷尔，2015年12月2日

%t选择[Range@801，PrimeQ[Product[Prime@k，{k，#}]+Prime[#+1]]&]（*_Michael De Vlieger_，2015年12月2日*）

%o（PARI）列表a（nn）={s=1；对于（k=1，nn，s*=prime（k）；如果（ispseudoprime（s+prime（k+1）），打印1（k，“，”）；）；}\\_Altug Alkan_，2015年12月2日

%Y参见A000040、A002110、A005235、A006862、A035345、A265109。

%K nonn，更多

%O 1,2号机组

%A _N.J.A.斯隆_

%E术语21和73由_Labos Elemer_于2000年5月2日发现

%E 2002年10月20日，罗尔夫·斯蒂芬的又一任期

%E偏移量由_Altug Alkan更改，2015年12月2日

%E 2015年12月2日，米歇尔·德弗利格（_Michael De Vlieger_）的1971学期

%E条款3332、3469、3509、4318、7986，来自Altug Alkan，2015年12月2日