|
| |
|
| A294174型 |
| 既可以表示为第一素数之和，也可以表示为首批合成数之和的数字。 |
|
2
|
|
|
|
0, 10, 1988, 14697, 83292, 1503397, 18859052, 93952013, 89171409882, 9646383703961, 209456854921713, 3950430820867201, 13113506646374409451778
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
10位于序列中，因为素数（1）+素数（2）+质数（3）=2+3+5=10，而复合数（1。
1988年在序列中是因为Sum{i=1..33}素数（i）=A007504号（33）=Sum_{i=1..51}复合（i）=A053767号(51) = 1988.
== ======== ======== =================
1 0 0 0
2 3 2 10
3 33 51 1988
4 80 147 14697
5 175 361 83292
6 660 1582 1503397
7 2143 5699 18859052
8 4556 12821 93952013
9 118785 403341 89171409882
10 1131142 4229425 9646383703961
11 5012372 19786181 209456854921713
12 20840220 86192660 3950430820867201（结束）
|
|
|
数学
|
nextComposite[n_]：=块[{k=n+1}，While[底漆Q@k，k++]；k] ；c=sc=4；p=sp=2；lst={0}；当[p<1000000000时，如果[sc==sp，则附加到[lst，sc]；c=nextComposite@c；sc+=c]；而[sp<sc，p=NextPrime@p；sp+=p]；而[sc<sp，c=nextComposite@c；sc+=c]]；第一次(*罗伯特·威尔逊v2018年2月11日*）
模块[{pr=Accumulate[Prime[Range[5*10^7]]，co=Accuminate[Select[Range[11*10^4]，CompositeQ]]}，Join[{0}，Intersection[pr，co]]]（*程序生成序列的前12个项；要生成第13个项，会大大增加Range规范，但程序需要很长时间才能运行。*）(*哈维·P·戴尔2019年9月17日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,更多,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
