OFFSET
1,5
LINKS
Eric Weisstein's World of Mathematics, Graph Cycle
Index entries for linear recurrences with constant coefficients, signature (3, -3, 1).
FORMULA
For n >= 9, a(n) = 16001 - 4323*n + 297*n^2.
For n >= 12, a(n) = 3*a(n-1)-3*a(n-2)+a(n-3).
G.f.: x^5*(-4 - x - 71*x^2 - 156*x^3 - 187*x^4 - 165*x^5 - 10*x^6)/(-1 +
x)^3.
MATHEMATICA
Table[Piecewise[{{0, n <= 4}, {4, n == 5}, {13, n == 6}, {98, n == 7}, {415, n == 8}, {16001 - 4323 n + 297 n^2, n > 8}}, 0], {n, 20}]
Join[{0, 0, 0, 0, 4, 13, 98, 415}, LinearRecurrence[{3, -3, 1}, {1151, 2471, 4385}, 12]]
CoefficientList[Series[(x^4 (-4 - x - 71 x^2 - 156 x^3 - 187 x^4 - 165 x^5 - 10 x^6))/(-1 + x)^3, {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Eric W. Weisstein, Jul 29 2017
STATUS
approved