(PARI)列表(lim)=my(v=list(),p=3,r);对于素数(q=5,sqrtint(lim\1*2+2)+1,如果(q-p==2&&isprime(r=p*q\2)&&isprime(r+2),listput(v,r));p=q);向量机(v)\\查尔斯R格雷特豪斯四世2015年9月29日
(PARI)is(n)=my(p=平方(2*n+1));p*(p+2)==2*n+1&&isprime(n)&&isprime(n+2)&&isprime(p)&&isprime(p+2)\\查尔斯R格雷特豪斯四世2015年9月29日
|