|
（*返回将数字（假定为偶数）拆分为两个素数之和的各种方法。*）
getGoldBachSplits[n_Integer]：=模块[{i，splits={}，a，b}，
(
对于[i=1，
素数[i]<n，
i++，
a=质数[i]；
b=n-质数[i]；
如果[PrimeQ[b]，
如果[MemberQ[splits，{b，a}]，Null，
追加到[splits，{a，b}]]，
空]；
]; （*停止…*）
拆分
)
]
（*现在我们生成我们的系列…*）
系列[n]：=
模块[{}，（表[Prime[i]*Length[getGoldBachSplits[2i]]，{i，2，n}]）
| 