数论问题巅峰对决

蔡家雄 · 发表于 2020-9-26 00:01

我的 Mathematica 编程是有的，M<=10^1000也可验证是否有解，

s=0;
For[k=1; M=24680 ; 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, " )"]]]

但，新电脑没安装，我也不会安装此计算软件，以前是请人安装的。

蔡家雄 · 发表于 2020-9-26 00:02

我的 Mathematica 编程是有的，M<=10^1000也可验证是否有解，

蔡家雄 · 发表于 2020-9-26 00:03

我的 Mathematica 编程是有的，M<=10^1000也可验证是否有解，

s=0;
For[k=1; M=24680 ; 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, " )"]]]

但，新电脑没安装，我也不会安装此计算软件，以前是请人安装的。

ysr · 发表于 2020-9-26 00:03

用Print输出，只能读，不能复制，用text或者用combo（就是下拉菜单）输出才能复制。
我不会Mathematica 编程。
抱歉！仅会vb简单语句。

ysr · 发表于 2020-9-26 00:08

我的程序慢，10^1000以上算不了，需要快速乘法除法程序才行。我不会，高手也没有人帮忙，自己学习一下再弄吧！
晚安！

蔡家雄 · 发表于 2020-9-26 00:08

辛苦 ysr 兄了，晚安。

蔡家雄 · 发表于 2020-9-26 07:43

k=2, 2n=24680, 有33个不同的素数p, 应该是对的，

蔡家雄 · 发表于 2020-9-26 07:47

，，，，，，，，，，，，，，，，，

蔡家雄 · 发表于 2020-9-26 07:49

k=7, 有几个不同的素数p, 且 p<=n, 使

2n=10^10=素数(p)+素数(2n-p)=素数(p+30k)+素数(2n-p-30k) 成立。

蔡氏偶数分拆：需要同时满足这两个等式。

蔡家雄 · 发表于 2020-9-26 07:52

。。。。。。。。。。。。。。。。。。。

		自动登录	找回密码
密码			注册