OFFSET
2,1
LINKS
Eric Weisstein's World of Mathematics, Clique
Eric Weisstein's World of Mathematics, Folded Cube Graph
Index entries for linear recurrences with constant coefficients, signature (5,-8,4).
FORMULA
a(n) = 2^(n - 2)*(n + 2) + 1 for n > 3.
a(n) = 5*a(n-1) - 8*a(n-2) + 4*a(n-3) for n > 3.
G.f.: x^2*(-4 + 4*x + 23*x^2 - 44*x^3 + 20*x^4)/((-1 + x)*(-1 + 2*x)^2).
MATHEMATICA
Table[Piecewise[{{4, n == 2}, {16, n == 3}}, 2^(n - 2) (n + 2) + 1], {n, 2, 20}]
Join[{4, 16}, LinearRecurrence[{5, -8, 4}, {25, 57, 129}, 20]]
CoefficientList[Series[(-4 + 4 x + 23 x^2 - 44 x^3 + 20 x^4)/((-1 + x) (-1 + 2 x)^2), {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Eric W. Weisstein, Nov 30 2017
STATUS
approved