%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日