%I#13 2018年6月10日20:37:37

%S 3,5,11,29,41,711372814615996417878278811091112913011409，

%电话：160716271951212922672357238125726872887291734693527，

%电话：3557358139674127422943374547488950095309574161362476343

%N素数p，使得（pp'-1）/2是素数，其中p'表示p之后的下一个素数。

%H Hugo Pfoertner，n的表，n=1..10000的a（n）</a>

%t素数[Select[Range[850]，PrimeQ[（素数[#]素数[#1]-1）/2]&]]

%t Transpose[Select[Partition[Prime[Range[900]]，2,1]，PrimeQ[（Times@@#-1）/2]&]][1]（*哈维·P·戴尔，2011年9月17日*）

%o（PARI）是A093706（n）=如果（n<3.0，isprime（n）&isprime，（n*nextprime（n+1）-1）/2））\\迈克尔·波特，2009年12月15日

%Y参考A048797。

%K nonn公司

%O 1,1号机组

%A _Robert G.Wilson v_，2004年4月10日