|
|
|
|
|
|
|
|
|
#16通过米歇尔·马库斯2018年6月17日，美国东部夏令时11:48:08 |
|
|
|
|
|
|
|
#15通过乔格·阿恩特2018年东部夏令时2017年6月17日02:47:45 |
|
|
|
|
|
|
|
#14通过迈克尔·德弗利格2018年6月11日星期一18:50:14 EDT |
|
|
|
|
|
|
|
#13通过迈克尔·德弗利格2018年6月11日星期一18:50:12 EDT |
|
| 数学
|
（*第二个程序，避免“组合运算”：*）
嵌套[Append[#，Block[{k=Last@#+1}，While[AnyTrue[Total/@Select[Subsets[Append[#，k]]，Length@#>1&]，PrimeQ]，k++]；k]]&，{1}，6](*迈克尔·德弗利格，2018年6月11日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#12通过米歇尔·马库斯2018年美国东部夏令时周日6月10日00:58:01 |
|
|
|
|
|
|
|
#11通过米歇尔·马库斯2018年美国东部夏令时周日6月10日00:57:58 |
|
| 数学
|
（*first-do*）需要[“Combinatorica`”]（*then*）lst={}；g[k_]：=块[{j=1，l=2^长度@lst}，而[j<l&&！PrimeQ[Plus@@NthSubset[j，lst]+k]，j++]；如果[j==l，假，真]]；f[n_]：=块[{k=lst[[-1]]+1}，而[g[k]==真，k++]；附录[lst，k]；k] ；做[打印@f@n、 {编号，10}]. - _}]; (* _Robert G.Wilson v_，2007年12月31日*)
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#10个通过乔恩·肖恩菲尔德2018年美国东部夏令时周日6月10日00:54:30 |
|
|
|
|
|
|
|
#9通过乔恩·肖恩菲尔德2018年美国东部夏令时周日6月10日00:53:28 |
|
| 评论
|
序列是无限的，因为素数的密度为0. [__Charles R Greathouse IV，4月28日， 2011]
|
|
| 例子
|
5是级数的一个项，因为5+1、5+3和5+3+1都是 不 首要的非犯罪下一个术语87是下一个数字n个k个这样的话n个k个+1,n个k个+3,n个k个+1+3，n个k个+5,n个k个+1+5,n个k个+3+5和n个k个+1+3+5都是 不 首要的非犯罪.
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 孙军10
| 00:54
| 乔恩·肖恩菲尔德：最好在名称的开头插入类似“词法上第一个正整数序列，如下所示”的内容？
|
|
|
|
|
|
|
#8通过查尔斯·格里特豪斯四世2015年3月19日星期四09:38:17 EDT |
|
| 作者
|
_兰迪·L。埃克尔(兰迪.埃克尔(自动变速箱)摩托罗拉.com公司),_,2007年12月28日
|
|
|
|
|
讨论
|
| 3月19日星期四
| 09:38
| OEIS服务器: https://oeis.org/edit/global/2378
|
|
|
|
|
|
|
#7通过查尔斯·格里特豪斯四世2013年5月13日星期一美国东部夏令时01:48:44 |
|
| 评论
|
序列是无限的，因为素数的密度为0. [. [_查尔斯·格里特豪斯四世，_,2011年4月28日]
|
|
|
|
|
讨论
|
| 5月13日周一
| 01:48
| OEIS服务器: https://oeis.org/edit/global/1914
|
|
|
|
|
|
