%2017年8月3日01:02:46
%S 4,6,8,9,10,12,14,15,16,18,20,21,22,24,25,26,28,30,32,33,34,36,38,39,
%电话:40,42,44,45,46,48,49,50,52,54,55,56,58,60,62,63,64,66,68,69,70,72,74,
%单位:75,76,78,80,81,82,84,85,86,88,90,91,92,94,96,98,99100102104105
%N可以表示为两个素数之和的复合数(即A002808,不包括A025583)。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%H Eric Weistein的《数学世界》,<a href=“http://mathworld.wolfram.com/PrimePartition.html“>基本分区</a>
%tr[n_]:=减少[2<=p<=q&&n==p+q,{p,q},素数];选择[Range[4105],r[#]=!=错误&&!PrimeQ[#]&](*_Jean-François Alcover_,2012年10月29日*)
%o(哈斯克尔)
%o a051035 n=a051035_列表!!(n-1)
%o a051035_list=过滤器((==0)。a010051)a014091_列表
%Y参考A002808、A025583。
%Y参见A010051,A014092的子序列。
%K nonn公司
%O 1,1号机组
%A _瑞克·W·魏斯坦_
|