%I#26 2016年8月6日23:56:09

%S 7139178927314159564113339133991942921739223693205932911，

%电话：336014257145319545415533965449682110618910849111871，

%电话：13285913639913807914151114298114820149629152041152041152839173431174049178249

%N素数p，这样p-2，p^2-p-1，p^2-p+1就是素数。

%H Pierre CAMI，n表，n=1..30000的a（n）</a>

%e 5-2=3素数，5素数，5*（5-1）-1=19素数，5*（5-1）+1=21复合，所以5不在序列中。

%e 7-2=5素数，7素数，7*（7-1）-1=41素数，6*（7-1）+1=43素数，所以7在序列中。

%t选择[Prime[Range[100]]，Union[PrimeQ[{#-2，#^2-#-1，#^2-#+1}]=={True}&]（*_Alonso del Arte_，2016年6月27日*）

%o PFGW和SCRIPT，twin.txt文件，具有最小的双绞线。

%o脚本

%o尺寸n

%o OPENFILEIN maf，双胞胎.txt

%o打开文件myf，a.txt

%o标签回路

%o GETNEXT n，maf公司

%o设置n，n+2

%o设置m，n*（n-1）-1

%o PRP米

%o如果ISPRP，则转到

%o GOTO循环

%o标签a

%o PRP m+2

%o如果ISPRP，则写入myf，n

%o GOTO循环

%o（PARI）lista（nn）=素数（p=2，nn，if（isprime（p-2）&&isprime_Michel Marcus，2016年7月7日

%Y参考A228968。

%K nonn公司

%O 1,1号机组

%A_Pierre CAMI_，2016年6月27日