%I#11 2021年7月5日12:03:54

%S 2,3,5,23,59，61,83151233263269293373401433503541619701，

%电话97111031433149316011621186119492099217921792371244125432741，

%电话：28512903299393083318133133413355934307345494591464350395081547157115749

%N素数p，使得p+q*（q-p）和q+p*（q-p）是素数，其中q是p之后的下一个素数。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%p R：=NULL：计数：=0：

%p q：=2：

%p do公司

%p p：=q；q： =下一素数（p）；

%p如果是isprime（p+（q-p）*q）和isprim（q+（q-p）*p），则

%p计数：=计数+1；

%p R：=R，p；

%p如果计数=100，则打破fi

%功率因数

%日期：

%p R；

%t Do[a=素数[k]+素数[k+1]*（素数[k+1]-素数[k]）；b=素数[k+1]+素数[k]*（素数[k+1]-素数[kN]）；如果[PrimeQ[a]&&PrimeQ[b]，打印[Prime[k]]，{k，1757}]（*_Metin Sariyar_，2019年9月23日*）

%t chpQ[{a_，b_}]：=全部真[{a+b（b-a），b+a（b-a；选择[Partition[Prime[Range[800]]，2,1]，chpQ][[All，1]]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2021年7月5日*）

%Y包括A174920。

%K nonn公司

%O 1，1

%A _J.M.Bergot和_Robert Israel，2019年9月22日