OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Dipyramidal Graph
Eric Weisstein's World of Mathematics, Irredundant Set
Index entries for linear recurrences with constant coefficients, signature (3, -2, -1, 2, -2, 0, 2, -1).
FORMULA
a(n) = 3*a(n-1) - 2*a(n-2) - a(n-3) + 2*a(n-4) - 2*a(n-5) + 2*a(n-7) - a(n-8) for n > 11.
G.f.: x^3*(7 + x - 23*x^2 + 3*x^3 + 9*x^4 - 9*x^5 + 14*x^6 + 2*x^7 - 6*x^8)/((-1 + x)^2*(1 - x - x^2 - x^4 + x^6)).
MATHEMATICA
Table[Piecewise[{{7, n == 3}}, 3 + 2 n + RootSum[1 - #1^2 - #1^4 - #1^5 + #1^6 &, #^n &]], {n, 3, 20}]
Join[{7}, LinearRecurrence[{3, -2, -1, 2, -2, 0, 2, -1}, {22, 29, 39, 60, 94, 151, 241, 400}, 20]]
CoefficientList[Series[(7 + x - 23 x^2 + 3 x^3 + 9 x^4 - 9 x^5 + 14 x^6 + 2 x^7 - 6 x^8)/((-1 + x)^2 (1 - x - x^2 - x^4 + x^6)), {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Jun 18 2018
STATUS
approved