|
u[n_2;，k_u，r_u]：=（r*二项式[k*n+r，n]/（k*n+r））；
e[n，k十一]：=和[u[j，k，1+（n-2*j）*k/2]，{j，0，n/2}]
c[nŠ，k#]：=如果[n==0，1，（除数[n，EulerPhi[n/#]*二项式[k*#，#]&]+除数[GCD[n-1，k]，EulerPhi[#]*二项式[n*k/#，（n-1）/35;]&]）/（k*n）-二项式[k*n，n]/（n*（k-1）+1]；
T[n_2;，k_u]：=（1/2）*（c[n，k]+如果[n==0，1，如果[OddQ[k]，如果[OddQ[n]，2*u[商[n，2]，k，（k+1）/2]，u[n/2，k，1]+u[n/2-1，k，k]]，e[n，k]+If[OddQ[n]，u[商[n，2]，k，k/2]]]]/。空->0；
a[n_u]：=T[n，4]；
表[a[n]，{n，0，30}](*让·弗朗索瓦·阿尔科弗2018年6月14日A303929飞机*)
| 