|
q[x_]：=x+1；
p[0，x_]：=1；p[1，x_]：=x；
p[n，x_]：=（x+n）p[n-1，x]/；n>1
约简规则={x^y_？EvenQ->q[x]^（y/2），
x^y_？奇数q->xq[x]^（（y-1）/2）}；
t=表格[
最后[最多[
固定点列表[Expand[#1/.reductionRules]&，p[n，x]]]，{n，0，
20}]
扁平[{0，递归表[{a[n]==2*（n-1）*a[n-1]-（n^2-3*n+1）*a[2]，a[2]==1，a[3]==3}，a，{n，2，20}]}]（*或*）
扁平[{0，FullSimplify[Rest[Rest[CoefficientList[Series[-1/10*（Sqrt[5]+3）*Sqrt+5]*（x-1）^（Sqrt[5]/2-1/2）/（-1）^ x]*范围[0，20]！]]}](*瓦茨拉夫·科特索维奇2012年10月20日*）
| 