%I#4 2021年10月14日13:50:35

%电话：77723915555593112199440939910635959121925923334851923796743，

%电话：30612839476100234862812755778519674544239158123995286263，

%电话：972900479988331910299659910481267913500266313784174814839859962707543170450999172007639186520823

%N三种不同的三重安全素数的乘积。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%e 777239=23*47*719；23、47和719是三重安全素数。

%t lst={}；Do[If[Plus@@Last/@FactorInteger[n]==3，a=Length[First/@FactorInteger[n]]；如果[a==3，b=First/@FactorInteger[n]；c=b[[1]；d=b[[2]；e=b[[3]]；如果[PrimeQ[cx=（c-1）/2]&&PrimeQ[cy=（cx-1）/2]&&PrimeQ[（cy-1；第一次

%o（PARI）列表（lim）=my（v=list（）），P=select（P->isprime（P\2）&&isprime；对于（i=1，#P，P=P[i]；如果（P^3>=lim，break）；对于（j=i+1，#P，q=P[j]；t=P*q；对于素数（r=q+4，lim\t，if（isprime（r\2）&isprime；集合（v）；\\_Charles R Greathouse IV，2021年10月14日

%Y参考A157358、A001358、P005384、A005385、A006881、A007304、A066179、A111206、A157342、A15734.4、A157454、A157/346、A1573407、A157352、A157/353、A15735.4、A157 355、A15735

%K nonn，简单

%O 1,1号机组

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

%E a（5）-a（26）来自查尔斯·格里特豪斯四世，2021年10月14日