OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
Eric Weisstein's World of Mathematics, Crossed Prism Graph
Eric Weisstein's World of Mathematics, Minimal Dominating Set
Index entries for linear recurrences with constant coefficients, signature (4,-2,7,17,2).
FORMULA
From Andrew Howroyd, Aug 31 2017: (Start)
a(n) = 4*a(n-1) - 2*a(n-2) + 7*a(n-3) + 17*a(n-4) + 2*a(n-5) for n > 5.
G.f.: x*(4 - 4*x + 21*x^2 + 68*x^3 + 10*x^4)/(1 - 4*x + 2*x^2 - 7*x^3 - 17*x^4 - 2*x^5).
(End)
MATHEMATICA
Rest@ CoefficientList[Series[x (4 - 4 x + 21 x^2 + 68 x^3 + 10 x^4)/(1 - 4 x + 2 x^2 - 7 x^3 - 17 x^4 - 2 x^5), {x, 0, 24}], x] (* Michael De Vlieger, Aug 31 2017 *)
LinearRecurrence[{4, -2, 7, 17, 2}, {4, 12, 61, 316, 1304}, 30] (* Harvey P. Dale, Jul 02 2019 *)
Table[RootSum[-2 - 17 # - 7 #^2 + 2 #^3 - 4 #^4 + #^5 &, #^n &], {n, 20}] (* Eric W. Weisstein, Sep 08 2021 *)
PROG
(PARI) Vec((4 - 4*x + 21*x^2 + 68*x^3 + 10*x^4)/(1 - 4*x + 2*x^2 - 7*x^3 - 17*x^4 - 2*x^5)+O(x^30)) \\ Andrew Howroyd, Aug 31 2017
(PARI) \\ sequence prepended by a 5:
polsym(-2 - 17*x - 7*x^2 + 2*x^3 - 4*x^4 + x^5, 24) \\ Joerg Arndt, Sep 08 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Aug 31 2017
EXTENSIONS
a(1) and terms a(7) and beyond from Andrew Howroyd, Aug 31 2017
STATUS
approved