%I#20 2022年9月8日08:46:21

%S 5,11,23,291492692933476176476837618091259155316192003，

%电话：206320812129229723092381257926932897023355742414721，

%电话：4799481755196197671968336959823785378597839029946196779929

%N素数p使得素数（p）+p+1和素数（p）-p-1都是素数。

%C A317909的子序列以及由此产生的素数是A112885的子序列（有关证明，请参见A317909）。

%H Robert Israel，<a href=“/A304372/b304372.txt”>n，a（n）表，n=1.-10000</a>

%e p=5；素数（5）+5+1=17和素数（五）-5-1=5，这两个素数so5都是一个成员，因为素数2和素数3的情况不一样，a（一）=5。

%p编号：=5000：

%p代表X从1到N do

%pA:=ithprime（X）；

%p p：=A+X+1；

%p Q:=A-X-1；

%p如果是isprime（X）、isprime和isprime，则打印（X）；

%p结束，如果：

%p端do：

%t选择[Prime[Range[2 10^3]]，以及@@PrimeQ[{Prime[#]+#+1，Prime[#]-#-1}]&]（*_Winenzo Librandi_，2018年8月18日*）

%o（岩浆）[1..2*10^4]中的n：n | IsPrime（n）和IsPrime_文森佐·利班迪（Vincenzo Librandi），2018年8月18日

%o（PARI）isok（p）=isprime（p）&&isprime（素数（p）+p+1）&&isprime（素数（p）-p-1）；\\_米歇尔·马库斯，2018年8月18日

%Y参考A112885，A317909。

%K nonn，简单

%O 1,1号机组

%A _David James Sycamore，2018年8月16日

%E 2018年8月18日来自_Winenzo Librandi_的更多条款