〓 Mathematica 七 〓 [転載禁止]©2ch.net

[0728 １３２人目の素数さん 2018/03/01(木) 21:37:04.43 ID:Gjdrkmqo]

>>727
Flatten[Permutations /@ IntegerPartitions[15, {10}], 1] // Length
-> 2002
かな。