OFFSET
1,1
COMMENTS
Extended to a(1)-a(2) using the recurrence.
LINKS
Eric Weisstein's World of Mathematics, Helm Graph
Eric Weisstein's World of Mathematics, Irredundant Set
Index entries for linear recurrences with constant coefficients, signature (6, -10, 4, -5, 6).
FORMULA
a(n) = 6*a(n-1) - 10*a(n-2) + 4*a(n-3) - 5*a(n-4) + 6*a(n-5).
G.f.: (x (-5 + 17 x - 7 x^2 - 13 x^3))/(-1 + 6 x - 10 x^2 + 4 x^3 - 5 x^4 + 6 x^5).
MATHEMATICA
Table[1 + 2 3^n - RootSum[-2 - # - 2 #^2 + #^3 &, #^n &], {n, 20}]
LinearRecurrence[{6, -10, 4, -5, 6}, {5, 13, 35, 113, 355}, 20]
CoefficientList[Series[(-5 + 17 x - 7 x^2 - 13 x^3)/(-1 + 6 x - 10 x^2 + 4 x^3 - 5 x^4 + 6 x^5), {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Aug 07 2017
EXTENSIONS
a(12)-a(16) from Andrew Howroyd, Aug 11 2017
STATUS
approved