|
我的Mathematica编程 ( k=7 )
s = 0;
For[ k=7; n = 338 , n <= 5*10^4, n++,
For[p = 5, p <= 5*10^4, p++,
If[(PrimeQ[p])&&(PrimeQ[p+30k])&&(PrimeQ[2n-p])&&(PrimeQ[2n-p-30k])] , s = s + 1;
Print[s, "-----", 2n, "-----", p]]]]
只是我的编程,如:7890有几十个p, 使7890成立,7890就会重复出现:几十次,查看需要很长时间,
没有你的孪中数两两相加便捷,仅需很短时间,即:我还没有最优的编程,你的偶数不会重复,且查看快。
不过我的编程,能求出:蔡氏偶数分拆的所有解。只需上面的编程(最后一行)作相应的添加,就行了。
|
|