G[nMax_]：=点[RecurrenceTable[{Dot[{（3*n-5）^2（3*n-4）^2，-18（n-4）（40-197*n+351*n^2-279*n^3+81*n^4），81（n-1）*n^3*（9*n-13）}，a[n-#]&/@Reverse[Range[0，2]]==0，a[0]==0，a[1]==5/9}，a，{n，0，nMax}]，x^范围[0，nMax]]；
qSer[nMax_]：=展开[Times[x，Normal[Series[Exp[Divide[G[nMax]，Hypergeometric2F1[1/3，2/3，1，x]]]，{x，0，nMax}]]；
系数列表[（1/k）*qSer[20]/。{x->k*x}，x]/。{k->27}
