|
MATHEMATICA
|
CoefficientList[Series[(1-12x+1494x^2+380888x^3+17292525x^4+248136510x^5+1532347656x^6+ 4916629962x^7+ 9347647209x^8+11464268960x^9+9347652702x^10+ 4916635404x^11+ 1532337619x^12+ 248138478x^13+17294340x^14+380562x^15+1302x^16)/((1-x)^15(1+x)(1+x+x^2)), {x, 0, 30}], x] (* or *) LinearRecurrence[{13, -77, 274, -650, 1078, -1274, 1066, -572, 0, 572, -1066, 1274, -1078, 650, -274, 77, -13, 1}, {1, 1, 1430, 399675, 22377814, 508665365, 6530486977, 56519001176, 366504924502, 1906401762732, 8333338333334, 31645829208856, 106993223294977, 328114730182533, 926000621503254, 2432743920878907, 6004799637378390, 14031485751786081}, 30] (* Harvey P. Dale, Dec 09 2022 *)
|