%I#52 2021年12月17日10:53:28

%S 27,35,51,57,65,77,87,93,95117119121123125135145147155，

%电话161171177185187189203205207209215217219221237245247，

%电话：249255261267275287929129330330530232325327329335341

%N不是2个素数之和的复合数。

%哥德巴赫猜想，每一个大于5的整数都是三个素数的和。

%C猜想：这是奇数k的序列，这样（k mod x）mod 2！=1，其中x是最大的m<=k，使得m、m-1和m-2都是复合的。已验证前10000个条款。-_Benedict W.J.Irwin，2016年5月6日

%C数字k，因此，无论k枚硬币中有多少是正面而不是反面，正面或反面的硬币都可以排列成多行多列的矩形图案。（如果对于偶数的哥德巴赫猜想是错误的，那么这个评论应该局限于这个序列的奇数项，因为它可能会定义一个变量序列）_Peter Munn_，2017年5月15日

%H T.D.Noe，n的表格，n的a（n）=1..10000</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/PrimePartition.html“>基本分区</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/TwinComposites.html“>孪生复合材料</a>

%与哥德巴赫猜想相关的序列的索引条目</a>

%t f[n_]：=（p=0；pn=PrimePi[n]；Do[If[n==素数[i]+素数[k]，p=p+1；If[p>2，中断[]]]，{i，1，pn}，{k，i，pn}]；p）；选择[范围[2400]！PrimeQ[#]&&f[#]==0&]（*Jean-François Alcover_，2011年3月7日*）

%t小于等于350；带[{c=PrimePi[upto]}，补码[Range[4，upto]，素数[Range[c]]，并集[Total/@Tuples[Prime[Range]]，{2}]]（*_哈维·P·戴尔，2011年7月14日*）

%t选择[Range[400]，CompositeQ[#]&&Count[Integer Partitions[#，{2}]，_？（AllTrue[#，PrimeQ]&）]==0&]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2021年2月21日*）

%o（哈斯克尔）

%o a025583 n=a025583_列表！！（n-1）

%o a025583_list=a002808_list的过滤器，其中

%o f x=all（==0）$map（a010051.（x-））$takeWhile（<x）a000040_list

%o——Reinhard Zumkeller，2014年10月15日

%Y参见A051034、A001031、A002372、A00237、A071335。

%Y参考A002808、A000040、A010051。

%K nonn，很好，很容易

%O 1,1号机组

%A _N.J.A.斯隆_