knbishops[k_，n_]：=（如果[n==1，如果[k==1、1、0]，（-1）^k/（2n-k）！
*求和[二项式[2n-k，n-k+i]*求和[（-1）^m*二项式[n-i，m]*m^Floor[n/2]*（m+1）^Floor[（n+1）/2]，{m，1，n-i}]
*求和[（-1）^m*二项式[n-k+i，m]*m^Floor[（n+1）/2]*（m+1）^Floor[n/2]，{m，1，n+i-k}]，{i，Max[0，k-n]，Min[k，n]}]）；
表[1+总和[knbishops[k，n]，{k，1，2n-1}]，{n，1，25}]
