搜索： a237628-编号：a237629
|
| |
|
|
A237638号
|
| a（n）是素数集的数量，使得每个素数集包含足够的素数，可以将从6到2n的每个偶数分解为其两个元素的和（允许重用），而这些集都不是另一个这样的集的子集。 |
|
+10
2
|
|
|
|
1, 1, 1, 1, 1, 2, 2, 3, 4, 4, 5, 6, 6, 9, 11, 11, 11, 13, 16, 23, 25, 31, 47, 57, 63, 70, 74, 79, 82, 122, 131, 129, 180, 215, 219, 323, 367, 446, 501, 531, 661, 867, 897, 1311, 1471, 1691, 1695, 2130, 2288, 2833, 3363, 3891, 5435, 8068, 8867, 13476, 15451, 15897
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
3,6
|
|
|
链接
|
|
|
|
例子
|
n＝4、2n＝8。只有一组素数{3,5}，使得6=3+3，8=3+5。所以a（4）=1。
...
n=8，2n=16。我们可以找到两个具有这种特征的集合，{3,5,7,11}和{3,5，7,13}。所以a（8）=2。在这里，任何含有更多素数的集合要么包含一个未使用的素数，要么这两个集合中的一个是它们的子集，如{3,5,7,11,13}，因此不予考虑。所以a（8）=2。
...
n=13，2n=26。我们发现了五个这样的集合：{3,5,7,11,13}，{3,5，7,13,17}，}3,5,13,19}，[3]5,7,11,17,23}。所以a（13）=5。
|
|
|
数学
|
a={{3}}；表[n2=2*n；na={}；la=最后[a]；lo=长度[la]；做[ok=0；做[p1=la[[i，j]]；p2=n2-p1；如果[MemberQ[la[i]]，p2]，ok=1]，{j，1，长度[la[[i]]}]；
如果[ok==1，na=Sort[Append[na，la[i]]]，Do[p1=la[[i，j]]；p2=n2-p1；如果[PrimeQ[p2]，ng=Sort[Append[la[i]]，p2]]；大=0；如果[Length[na]>0，Do[If[Intersection[na[[k]]，ng]==na[[k]，big=1]，{k，1，Length[na]}]]；如果[big==0，na=Sort[Append[na，ng]]]，{j，1，Length[la[[i]]}]]，}i，1，lo}]；附加到[a，na]；长度[na]，{n，4，60}]（*程序列出了第4项及其后的内容*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,坚硬的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A242189型
|
| a（n）是最小的素数，使得从6到2n的每一个数都可以写成小于或等于a（n）的两个素数之和。 |
|
+10
1
|
|
|
|
3, 5, 5, 7, 7, 11, 11, 13, 13, 13, 13, 17, 17, 19, 19, 19, 19, 23, 23, 31, 31, 31, 31, 31, 31, 37, 37, 37, 37, 41, 41, 41, 41, 41, 41, 47, 47, 47, 47, 47, 47, 47, 47, 61, 61, 61, 61, 61, 61, 61, 61, 61, 67, 67, 67, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 83
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
3,1
|
|
|
评论
|
名称中的两个素数可以相等。
|
|
|
链接
|
|
|
|
例子
|
n=3，2*3=6=3+3。由于3是所需的最小素数，a（3）=3。
n=4，2*3=6=3+3，2*4=8=5+3，由于5是所需的最小素数，a（4）=5。
...
n=14，我们需要考虑从6到2*14=28的偶数，同时尝试最小化用于分解此类偶数的较大素数。6=3+3; 8=5+3; 10=5+5; 12=7+5; 14=7+7; 16=11+5; 18=11+7; 20=13+7; 22=11+11; 24=13+11; 26=13+13; 28=17+11。使用的最大素数是17。因此a（14）=17。
|
|
|
数学
|
a={2}；表[found=0；而[la=长度[a]；xx=1；Do[yy=0；Do[If[MemberQ[a，i*2-a[[j]]]，yy=1]，{j，1，la}]；如果[yy==0，xx=0]，{i，3，n}]；如果[xx==1，则找到=1]；发现==0，追加到[a，NextPrime[Last[a]]]；最后[a]，{n，3，68}]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
