|
MATHEMATICA
|
Table[Piecewise[{{0, n == 0}, {6, n == 1}, {69, n == 2}, {399, n == 3}}, n^2 (n + 1) (n + 2) (n + 3)^2/16 - 3], {n, 0, 10}]
Table[Piecewise[{{0, n == 0}, {6, n == 1}, {69, n == 2}, {399, n == 3}}, 3 (Binomial[n + 3, 4] n (n + 3)/2 - 1)], {n, 0, 10}]
Join[{0, 6, 69, 399}, LinearRecurrence[{7, -21, 35, -35, 21, -7, 1}, {3, 72, 402, 1467, 4197, 10203, 22047}, {4, 20}]]
CoefficientList[Series[-((3 x (2 + 9 x + 14 x^2 - 29 x^3 + 34 x^4 - 15 x^5 - 8 x^6 + 13 x^7 - 6 x^8 + x^9))/(-1 + x)^7), {x, 0, 20}], x]
|