%我#21 2022年9月8日08:46:09

%S 2,791071732573593838352359397114931811186722732353187，

%电话：41114723638976078101869994731102712157122271501716301，

%电话：1698718797198011991320071203213132200322307232032424229247332485924943

%N素数P，这样8*P^2-1和8*（8*P*2-1）^2-1也是素数。

%C A245639的后续序列。

%C对于这个序列中的P<150000000，8*（8*（8*P^2）^2-1）^2-2是复合的。

%H Pierre CAMI，<a href=“/A245674/b245674.txt”>n，a（n）表，n=1.-10000</a>

%e2是素数，8*2^2-1=31是素数；8*31^2-1=7687是素数。

%t f[n]：=8 n^2-1；选择[Prime[Range[3000]]、PrimeQ[f[#]]和&PrimeQ[f[#]]&]（*_Winenzo Librandi_，2014年9月8日*）

%o（PFGW和SCRIPT）

%o脚本

%o尺寸i

%o尺寸j，0

%o尺寸n，0

%o仪表板集成模块t

%o打开文件myf，a（n）.txt

%o标签回路1

%o设置j，j+1

%o设置t，%d\；第（j）页

%o设置i，8*p（j）^2-1

%o PRP i，t

%o如果ISPRP，则转到

%o转到循环1

%o标签a

%o设置i，8*i^2-1

%o项目需求计划i，t

%o如果ISPRP，则转到b

%o转到循环1

%o标签b

%o写入myf，t

%o转到循环1

%o（PARI）

%o f（x）=8*x^2-1；

%o对于素数（p=1,10^8，if（ispseudoprime（f（p））和ispseudomime（f（f（p））），打印1（p，“，”））\\_Derek Orr_2014年7月29日

%o（岩浆）[p:p在PrimesUpTo（25000）|IsPrime（8*p^2-1）和IsPrime中（512*p^4-128*p^2+7）]；//_Vincenzo Librandi_，2014年9月8日

%Y参考A245639。

%K nonn，简单

%O 1,1号机组

%2014年7月29日，A_Pierre CAMI_