|
楼主 |
发表于 2020-10-23 19:01
|
显示全部楼层
4生素数 p, p+30, p+210, p+2310 有 无穷多组,
8生素数 p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870 有 无穷多组,
s=0;
For[ p=23, p<=10^6, p++,
If[(PrimeQ[p])&&(PrimeQ[p+30])&&(PrimeQ[p+210])&&(PrimeQ[p+2310])&&(PrimeQ[p+30030])
&&(PrimeQ[p+510510])&&(PrimeQ[p+9699690])&&(PrimeQ[p+223092870]) ,s=s+1;
Print[s, " ------ p = ", p]]]
|
|