|
（*此程序生成A051340号，则其累加数组A141419号，然后在示例中描述其权重数组。*)
f[n_0]：=0；f[0，k_]：=0；（*权重数组需要*）
f[n，1]：=n；f[n_，k_x]：=1/；k>1；
TableForm[表格[f[n，k]，{n，1，10}，{k，1，15}]](*A051340号*)
Table[f[n-k+1，k]，{n，14}，{k，n，1，-1}]//展平
s[n，k}]：=Sum[f[i，j]，{i，1，n}，{j，1，k}]；（{f（n，k）}*的累加数组）
TableForm[表[s[n，k]，{n，1，10}，{k，1，15}]](*A141419号*)
Table[s[n-k+1，k]，{n，14}，{k，n，1，-1}]//展平
w[m_u，n_u]：=f[m，n]+f[m-1，n-1]-f[m，n-1]-f[m-1，n]/；或[m>0，n>0]；
TableForm[表[w[n，k]，{n，1，10}，{k，1，15}]]（*权重数组*）
Table[w[n-k+1，k]，{n，14}，{k，n，1，-1}]//展平(*克拉克·金伯利2011年2月5日*）
f[n_u]：=Join[Table[1，{n-1}]，{n}]；Array[f，14]//展平(*罗伯特·G·威尔逊五世2012年3月4日*）
| 