2011这个素数, 最多是多少个连续素数的和?

mathe

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

mathematica

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

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

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

熊一兵广义概率

zeroieme

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

请评判下我的一行代码，有微注释

1. 20000011//Function[{X},Prime[1]//{{#}(*素数表*),#(*数和*),{}(*可行解*)}&//NestWhile[If[#[[2]]<X,#~({Append[#1[[1]],#2],#1[[2]]+#2,#1[[3]]}&)~NextPrime[#[[1,-1]]],#~({Delete[#1[[1]],1],#1[[2]]-#2,If[#1[[2]]==X,Append[#1[[3]],{#2,Length[#1[[1]]]}],#1[[3]]]}&)~#[[1,1]]]&,#,#[[1,-1]]<X&]&//Last]//AbsoluteTiming

复制代码

wayne

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

zeroieme

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

逻辑步骤清晰啊

zeroieme

改成并行计算，快N倍

1. Quiet[LaunchKernels[]];20000011//Function[{X},X//PrimePi//Range[$KernelCount]/$KernelCount #&//Round//{Prepend[#[[1;;-2]]+1,1],#}&//Transpose//Parallelize[(Prime/@#//Function[{SPrime,EPrime},SPrime//{{#}(*素数表*),#(*数和*),{}(*可行解*)}&//NestWhile[If[#[[2]]<X,#~({Append[#1[[1]],#2],#1[[2]]+#2,#1[[3]]}&)~NextPrime[#[[1,-1]]],#~({Delete[#1[[1]],1],#1[[2]]-#2,If[#1[[2]]==X,Append[#1[[3]],{#2,Length[#1[[1]]]}],#1[[3]]]}&)~#[[1,1]]]&,#,#[[1,1]]<EPrime&]&//Last]@@#&)&/@#]&//Join@@#&//DeleteDuplicates]//AbsoluteTiming

复制代码