数学研发论坛

 找回密码
 欢迎注册
楼主: mathematica

[提问] 2011这个素数, 最多是多少个连续素数的和?

[复制链接]
发表于 2020-1-2 11:27:30 | 显示全部楼层
我们可以发现,有些素数能够写成3个(或以上)连续素数之和, 但是有些不可以。
请问,在素数充分大时,是否几乎每个素数都可以写成3个或以上连续素数之和?如果不是,比例是多少?
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-1-2 13:36:10 | 显示全部楼层
mathe 发表于 2020-1-2 11:27
我们可以发现,有些素数能够写成3个(或以上)连续素数之和, 但是有些不可以。
请问,在素数充分大时,是 ...

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

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

点评

连续素数之和而不是三个素数之和  发表于 2020-1-2 13:45
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-3-30 20:18:22 | 显示全部楼层
连续素数之和.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-3-30 22:12:28 | 显示全部楼层
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
复制代码


毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-3-31 15:14:10 | 显示全部楼层
"性能不错, 还可以考虑参选 代码混淆大王的评比 "
这个评语如何
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-3-31 23:40:17 | 显示全部楼层
wayne 发表于 2020-3-31 15:14
"性能不错, 还可以考虑参选 代码混淆大王的评比 "
这个评语如何

逻辑步骤清晰啊
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-4-2 00:03:26 | 显示全部楼层
改成并行计算,快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
复制代码

点评

你的读码能力差就去补习。  发表于 2020-4-2 15:17
不折不扣的垃圾代码,可读性非常差  发表于 2020-4-2 14:21
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2021-1-26 01:02 , Processed in 0.069024 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表