|
|
例子
|
n=4:2*4=8.8=3+5。这是唯一可能的包含质数3和5的二素数分解，而6=3+3，3是集合{3,5}的一个元素。所以a（4）=3*5=15。
n=5:2*5=10。6=3+3，8=3+5，10=5+5。所以集合{3,5}（允许重复使用）中的两个质数选择可以相加为所有三个数6、8和10。因此a（5）=3*5=15。
...
n=8:2n=16。我们可以找到两个集合，{3,5,7,11}和{3,5,7,13}，它们具有这样的特征：
集合（3,5,7,11}，6=3+3，8=3+5，10=5+5，12=5+7，14=7+7，16=5+11；
对于集合（3,5,7,13}，6=3+3，8=3+5，10=5+5，12=5+7，14=7+7，16=3+13。
3*5*7*11=1155，3*5*7*13=1365。1155<1365，所以a（8）=1155。这里我们没有计算集合{3,5,7,11,13}，因为这两个较短的集合是它的子集，因此子集中元素的乘积明显小于这个较大集合中元素的乘积。
|
|
|
数学
|
a={{{3}}}；表[n2=2*n；na={}；la=Last[a]；lo=长度[la]；Do[ok=0；Do[p1=la[[i，j]]；p2=n2-p1；如果[MemberQ[la[[i]]，p2]，ok=1]，{j，1，长度[la[[i]]]}]；
如果[ok==1，na=Sort[Append[na，la[[i]]]，则执行[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]；b={}；
lna=长度[na]；做[prd=Times@@@na[[k]]；附录[b，prd]，{k，1，lna}]；Min[b]，{n，4，32}]（*程序列出第4项及以上*）
|
