|
| |
|
| A133660型 |
| 两个或多个项之和不等于素数。 |
|
6
|
|
|
|
1, 3, 5, 87, 113, 1151, 5371, 199276, 32281747, 16946784207
(列表；图表；参考文献；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
5是级数的一个项，因为5+1、5+3和5+3+1都是非素数。下一项87是下一个数k，使得k+1、k+3、k+1+3、k+5、k+1+5、k+3+5和k+1+3+5都是非素数。
|
|
|
数学
|
（*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、 {n，10}]；(*罗伯特·威尔逊v2007年12月31日*）
（*第二个程序，避免“组合运算”：*）
Nest[Append[#，Block[｛k=Last@#+1｝，While[AnyTrue[Total/@Select[Subsets[Append[#，k]]，Length@#>1&]，PrimeQ]，k++]；k]]&，{1}，6](*迈克尔·德弗利格，2018年6月11日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
更多,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
