搜索： a257392-编号：a257382
|
| |
| |
|
|
|
2, 3, 7, 13, 47, 61, 73, 107, 167, 179, 313, 347, 421, 479, 719, 863, 1153, 1213, 1283, 1307, 1523, 3467, 3733, 4007, 4621, 4787, 5087, 5113, 5413, 7523, 7703, 9817, 10333, 12347, 12539, 13381, 17027, 18553, 19717, 19813, 23399, 26003, 31873, 36097, 38833
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
2和3在这个序列中，因为非负非素数（1）+非负非素（2）=0+1=1<2，以及非负非质数（2）+非负数非素（3）=1+4=5>3，其中2、3是素数。
|
|
|
MAPLE公司
|
N： =5000:#获得所有项<=N
素数：=选择（isprime，{2，seq（2*i+1，i=1..floor（（N-1）/2））}）：
非素数：=排序（convert（{$1..N}减去素数，list））：
nnp:=nops（非素数）：
PSums:=[0，op（ListTools[PartialSums]（非素数））]：
A： =底漆：
毫安：=最大值（A）：
对于i从1到nnp do
当PSums[j]-PSums[i]<=mA do od时，j从i+2到nnp+1；
A： =A减去{seq（PSums[k]-PSums[i]，k=i+2..j-1）}；
日期：
A；
#如果使用Maple 11或更早版本，请取消对下一行的注释
|
|
|
数学
|
lim=1000；s={1}~加入~选择[范围@lim，复合材料Q]；补码[Prime@Range[PrimePi@lim]，DeleteDuplicates@Sort@Flatten[Plus@@@分区[s，#，1]&/@Range[lim-PrimePi@lim]]](*迈克尔·德弗利格2015年4月21日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
