login
A292059
Wiener index of the n X n white bishop graph.
0
1, 8, 42, 104, 251, 464, 852, 1360, 2165, 3160, 4606, 6328, 8687, 11424, 15016, 19104, 24297, 30120, 37330, 45320, 55011, 65648, 78332, 92144, 108381, 125944, 146342, 168280, 193495, 220480, 251216, 283968, 320977, 360264, 404346, 450984, 502987, 557840, 618660, 682640
OFFSET
2,2
LINKS
Eric Weisstein's World of Mathematics, White Bishop Graph
Eric Weisstein's World of Mathematics, Wiener Index
FORMULA
a(n) = (3 + 2*n - 6*n^2 - 8*n^3 + 6*n^4 + 3*(-1)^n*(-1 - 2*n + 2*n^2))/24.
a(n) = 2*a(n-1) + 2*a(n-2) - 6*a(n-3) + 6*a(n-5) - 2*a(n-6) - 2*a(n-7) + a(n-8).
G.f.: x^2*(-1 - 6*x - 24*x^2 - 10*x^3 - 7 x^4)/((-1 + x)^5*(1 + x)^3).
MATHEMATICA
Table[(3 + 2 n - 6 n^2 - 8 n^3 + 6 n^4 + 3 (-1)^n (-1 - 2 n + 2 n^2))/24, {n, 2, 20}]
LinearRecurrence[{2, 2, -6, 0, 6, -2, -2, 1}, {1, 8, 42, 104, 251, 464, 852, 1360}, 20]
CoefficientList[Series[(-1 - 6 x - 24 x^2 - 10 x^3 - 7 x^4)/((-1 + x)^5 (1 + x)^3), {x, 0, 20}], x]
CROSSREFS
Sequence in context: A374915 A086392 A234860 * A027903 A231069 A319235
KEYWORD
nonn,easy
AUTHOR
Eric W. Weisstein, Sep 08 2017
STATUS
approved