%I#5 2019年1月14日14:29:29

%S 2,3,5,2310713715716319323345777647677857101311231223，

%电话1237178318671873224324172467268329573407341335173797，

%电话：437344474603490354135437581360536073632365776823686372077793

%N素数p使得36*p-1和36*p+1是双素数。

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

%e 36*2-1=71，36*2+1=73；36*3-1=107，36*p+1=109；。。。

%p Res:=NULL：计数：=0：

%p p：=1：

%计数<100 do时为p

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

%p如果isprime（36*p-1）和isprime（36*p+1），则

%p计数：=计数+1；Res:=Res，p；

%功率因数

%日期：

%p资源；#_罗伯特·伊斯雷尔，2019年1月14日

%t a=36；选择[Prime[Range[10^3]]、PrimeQ[a*#-1]和&PrimeQ[a*#+1]&]

%K nonn公司

%O 1,1号机组

%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基（Joseph Stephan Orlovsky），2008年5月15日