|
我因新电脑没数学软件,请天山草老师计算:有多少个p, 23<p<10^6,
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]]]
|
|