wolfram-mathematica - サイクルのリストにアイテムを追加する

Question

サイクルの空のリストにアイテムを追加しようとしています:

pointList = {};
For[n = 1, n <= 10, n++, Append[pointList, {n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)! / n!, {i, 1, n}]}]];

しかし、for ループの後の pointList は空です。私は何を間違っていますか？:(

Answer 1

AppendTo[] が必要ですが、ここでは table を使用するとよりうまくいくことができます:

pointlist=Table[{n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)! / n!, {i, 1, n}]},{n,10}]

Answer 2

二項関数の定義によりますのでご注意くださいBinomial[n,i]*(n-i)!/n!=1/i!。さらに、合計はFullSimplify[Sum[(-1)^(i+1)/i!,{i,1,n}],Assumptions->n>0]to経由で単純化され1-Subfactorial[n]/n!ます。したがって、

pointlist=Table[{n,1-Subfactorial[n]/n!},{n,1,10}]