OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A237638号 a(n)是素数集的数量,使得每个素数集包含足够的素数,可以将从6到2n的每个偶数分解为其两个元素的和(允许重用),而这些集都不是另一个这样的集的子集。 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,Length[la[[i]]}];
如果[ok==1,na=排序[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,坚硬的
作者
雷舟(Lei Zhou)2014年5月2日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月30日07:54。包含372962个序列。(在oeis4上运行。)