OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, Bishop Graph
Eric Weisstein's World of Mathematics, Harary Index
Index entries for linear recurrences with constant coefficients, signature (4, -5, 0, 5, -4, 1).
FORMULA
a(n) = (3 + 8*n - 36*n^2 + 16*n^3 + 6*n^4 - 3 (-1)^n)/48.
a(n) = 4*a(n-1) - 5*a(n-2) + 5*a(n-4) - 4*a(n-5) + a(n-6).
G.f.: x^2*(-2 - 5*x + x^3)/((-1 + x)^5 (1 + x)).
MATHEMATICA
Table[(3 + 8 n - 36 n^2 + 16 n^3 + 6 n^4 - 3 (-1)^n)/48, {n, 10}]
LinearRecurrence[{4, -5, 0, 5, -4, 1}, {0, 2, 13, 42, 102, 208}, 40]
CoefficientList[Series[x (-2 - 5 x + x^3)/((-1 + x)^5 (1 + x)), {x, 0, 20}], x]
PROG
(PARI) first(n) = Vec(x^2*(-2 - 5*x + x^3)/((-1 + x)^5*(1 + x)) + O(x^(n+1)), -n) \\ Iain Fox, Dec 07 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Eric W. Weisstein, Dec 07 2017
STATUS
approved