|
k=7, 有几个不同的素数p, 且 p<=n, 使
2n=10^10=素数(p)+素数(2n-p)=素数(p+30k)+素数(2n-p-30k) 成立。
这题的 Mathematica 编程
s=0;
For[k=7; M=10^10 ; p=7, p<=M/2, p++,
If[(PrimeQ[p])&&(PrimeQ[p+30k])&&(PrimeQ[M-p])&&(PrimeQ[M-p-30k]),s=s+1;
Print[s,"------2n = ",M," (k = ", k, " p = ", p, " )"]]]
|
|