|
|
A292045
|
|
Wiener index of the n X n X n grid graph.
|
|
0
|
|
|
0, 48, 972, 7680, 37500, 136080, 403368, 1032192, 2361960, 4950000, 9663060, 17791488, 31188612, 52437840, 85050000, 133693440, 204459408, 305165232, 445697820, 638400000, 898502220, 1244602128, 1699194552, 2289254400, 3046875000, 4009964400, 5223002148
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (n - 1)*(n + 1)*n^5/2.
a(n) = 8*a(n-1) - 28*a(n-2) + 56*a(n-3) - 70*a(n-4) + 56*a(n-5) - 28*a(n-6) + 8*a(n-7) - a(n-8).
G.f.: 12*x^2*(4 + 49*x + 104*x^2 + 49*x^3 + 4*x^4)/(1 - x)^8.
|
|
MATHEMATICA
|
Table[(n - 1) (n + 1) n^5/2, {n, 20}]
LinearRecurrence[{8, -28, 56, -70, 56, -28, 8, -1}, {0, 48, 972, 7680, 37500, 136080, 403368, 1032192}, 20]
CoefficientList[Series[12 x (4 + 49 x + 104 x^2 + 49 x^3 + 4 x^4)/(1 - x)^8, {x, 0, 20}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|