OFFSET
1,5
LINKS
Eric Weisstein's World of Mathematics, Graph Cycle
Eric Weisstein's World of Mathematics, Lucas Cube Graph
Index entries for linear recurrences with constant coefficients, signature (4, -2, -8, 5, 8, -2, -4, -1).
FORMULA
MATHEMATICA
Join[{0}, Table[(n + 1) (3 (40 n^2 - 145 n + 99) Fibonacci[n] - (40 n^2 - 133 n + 75) LucasL[n])/150, {n, 20}]
Join[{0}, LinearRecurrence[{4, -2, -8, 5, 8, -2, -4, -1}, {0, 0, 0, 5, 44, 147, 464, 1236}, 20]]
CoefficientList[Series[x^4 (5 + 24 x - 19 x^2 + 4 x^3 + x^4)/(-1 + x + x^2)^4, {x, 0, 20}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Jul 30 2023
STATUS
approved