〓 Mathematica 伍 〓
レス数が950を超えています。1000を超えると書き込みができなくなります。
0995１３２人目の素数さん
2015/02/26(木) 09:54:15.69ID:xhFlfLHc微妙な処はあるが、Mathematica返しだと、
Simplify[Sum[
n Binomial[m, n] FactorialPower[m, n] FactorialPower[l - m,
m - n], {n, 1, m}]/FactorialPower[l, m] // FunctionExpand,
Assumptions -> Element[m, Integers]]
->m^2/l
だが？
レス数が950を超えています。1000を超えると書き込みができなくなります。