登录
OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A237638号 a(n)是素数集的数量,使得每个集合包含足够的素数,以将从6到2n的每个偶数分解为其两个元素的和(允许重用),而这些集合都不是另一个这样的集合的子集。 2

%I#13 2014年5月17日03:27:45

%S 1,1,1,1,2,2,3,4,5,6,6,9,11,11,13,16,23,25,31,47,57,63,70,74,

%电话:79,821221311291802152193233674465015316678971311,

%电话:147116911695213022882838333633891543580688867134761545115897

%N a(N)是素数集的数量,使得每个集合包含足够的素数,以将从6到2n的每个偶数分解为其两个元素的和(允许重用),而这些集合都不是另一个这样的集合的子集。

%H Lei Zhou,n的表,a(n)表示n=3..79</a>

%e n=4,2 n=8。只有一组素数{3,5},使得6=3+3,8=3+5。所以a(4)=1。

%e。。。

%e n=8,2 n=16。我们可以找到两个具有这种特征的集合,{3,5,7,11}和{3,5,7,13}。所以a(8)=2。在这里,任何含有更多素数的集合要么包含一个未使用的素数,要么这两个集合中的一个是它们的子集,如{3,5,7,11,13},因此不予考虑。所以a(8)=2。

%e。。。

%e n=13,2 n=26。我们发现了五个这样的集合:{3,5,7,11,13},{3,5,7,13,17},}3,5,13,19},[3]5,7,11,17,23}。所以a(13)=5。

%tα={{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]]}];

%t如果[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项及其后的内容*)

%Y参见A000040、A002375、A240708、A237628。

%K nonn,硬

%O 3、6

%A _雷州_,2014年5月2日

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

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

上次修改时间:美国东部夏令时2024年7月19日13:28。包含374394个序列。(在oeis4上运行。)