各位高手
这道题我想用组合公式来枚举排列，本人是会用枚举法，但不懂怎么用mathematica表达
如果从这六个数字里面取三个来组合就是247 245 246 2410 275 276 2710 256 2510 2610等等
用mathematica可以排出来吗？怎么做才好？拜托了！

抛个暴力破解的砖。我也不懂什么算法美学，做出来就完事了。
price = {2, 4, 7, 5, 6, 10}
Solve[x1 + x2 == 16 && (x1 == 2 || x1 == 4 || x1 == 7 || x1 == 5 || x1 == 6 ||x1 == 10) && (x2 == 2 || x2 == 4 || x2 == 7 || x2 == 5 ||x2 == 6 || x2 == 10) && x1 < x2, {x1, x2}]
Solve[x1 + x2 + x3 == 16 && (x1 == 2 || x1 == 4 || x1 == 7 || x1 == 5 || x1 == 6 ||
x1 == 10) && (x2 == 2 || x2 == 4 || x2 == 7 || x2 == 5 ||
x2 == 6 || x2 == 10) && (x3 == 2 || x3 == 4 || x3 == 7 ||
x3 == 5 || x3 == 6 || x3 == 10) && x1 < x2 < x3, {x1, x2, x3}]
规定{x1,x2,x3}递增是为了避免重选，不是很清楚这道题目能不能买一样的东西，如果有的话把＜改成≤。
计算结果：
{2, 4, 7, 5, 6, 10}
{{x1 -> 6, x2 -> 10}}
{{x1 -> 2, x2 -> 4, x3 -> 10}, {x1 -> 4, x2 -> 5, x3 -> 7}}

Select[MonomialList[(1 + x1^2) (1 + x2^4) (1 + x3^7) (1 + x4^5) (1 +
x5^6) (1 + x6^10)], (# /. Times -> Plus)[[;; , 2]] == 16 &]

Cases[IntegerPartitions[16],
x_ /; SubsetQ[{2, 4, 5, 6, 7, 10}, x] && DuplicateFreeQ[x]]

Select[Subsets[{2, 4, 5, 6, 7, 10}, {2, 3}], Total[#] == 16 &]