mathe 发表于 2020-1-2 11:27:30

我们可以发现，有些素数能够写成3个（或以上）连续素数之和, 但是有些不可以。
请问，在素数充分大时，是否几乎每个素数都可以写成3个或以上连续素数之和？如果不是，比例是多少？

mathematica 发表于 2020-1-2 13:36:10

mathe 发表于 2020-1-2 11:27
我们可以发现，有些素数能够写成3个（或以上）连续素数之和, 但是有些不可以。
请问，在素数充分大时，是 ...

我记得弱哥德巴赫猜想说奇数都可以写成三个素数和，
所以你的问题，你说的有些不可以，能举个反例吗？

任何一个大于7的奇数都能被表示成三个奇质数的和

熊一兵广义概率 发表于 2020-3-30 20:18:22

zeroieme 发表于 2020-3-30 22:12:28

wayne 发表于 2014-7-29 09:34
我怀疑是GatherBy函数的问题

请评判下我的一行代码，有微注释:lol
20000011//Function[{X},Prime//{{#}(*素数表*),#(*数和*),{}(*可行解*)}&//NestWhile]<X,#~({Append[#1[],#2],#1[]+#2,#1[]}&)~NextPrime[#[]],#~({Delete[#1[],1],#1[]-#2,If[#1[]==X,Append[#1[],{#2,Length[#1[]]}],#1[]]}&)~#[]]&,#,#[]<X&]&//Last]//AbsoluteTiming

wayne 发表于 2020-3-31 15:14:10

"性能不错, 还可以考虑参选 代码混淆大王的评比 "
这个评语如何

zeroieme 发表于 2020-3-31 23:40:17

wayne 发表于 2020-3-31 15:14
"性能不错, 还可以考虑参选 代码混淆大王的评比 "
这个评语如何

逻辑步骤清晰啊:L

zeroieme 发表于 2020-4-2 00:03:26

改成并行计算，快N倍
Quiet];20000011//Function[{X},X//PrimePi//Range[$KernelCount]/$KernelCount #&//Round//{Prepend[#[]+1,1],#}&//Transpose//Parallelize[(Prime/@#//Function[{SPrime,EPrime},SPrime//{{#}(*素数表*),#(*数和*),{}(*可行解*)}&//NestWhile]<X,#~({Append[#1[],#2],#1[]+#2,#1[]}&)~NextPrime[#[]],#~({Delete[#1[],1],#1[]-#2,If[#1[]==X,Append[#1[],{#2,Length[#1[]]}],#1[]]}&)~#[]]&,#,#[]<EPrime&]&//Last]@@#&)&/@#]&//Join@@#&//DeleteDuplicates]//AbsoluteTiming
页: 1 2 3 4 5 6 7 8 9 [10]
查看完整版本: 2011这个素数, 最多是多少个连续素数的和?