|
|
A092364
|
|
a(n) = n^2*binomial(n,2).
|
|
10
|
|
|
0, 4, 27, 96, 250, 540, 1029, 1792, 2916, 4500, 6655, 9504, 13182, 17836, 23625, 30720, 39304, 49572, 61731, 76000, 92610, 111804, 133837, 158976, 187500, 219700, 255879, 296352, 341446, 391500, 446865, 507904, 574992, 648516, 728875, 816480
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Coefficient of x^2 in expansion of (1+n*x)^n.
For n>3, a(n) is twice the area of a triangle with vertices at points (C(n-1,3),C(n,3)), (C(n,3),C(n+1,3)), and (C(n+1,3),C(n+2,3)). - J. M. Bergot, Jun 05 2014
Also the Harary index of the n X n rook complement graph for n != 2. - Eric W. Weisstein, Sep 14 2017
|
|
LINKS
|
|
|
FORMULA
|
G.f.: -x^2*(4+7*x+x^2) / (x-1)^5. - R. J. Mathar, Mar 10 2011
a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5). - Eric W. Weisstein, Sep 14 2017
Sum_{n>=2} 1/a(n) = 6 - Pi^2/3 - 2*zeta(3).
Sum_{n>=2} (-1)^n/a(n) = Pi^2/6 + 4*log(2) + 3*zeta(3)/2 - 6. (End)
|
|
MAPLE
|
|
|
MATHEMATICA
|
LinearRecurrence[{5, -10, 10, -5, 1}, {0, 4, 27, 96, 250}, 20] (* Eric W. Weisstein, Sep 14 2017 *)
CoefficientList[Series[-((x (4 + 7 x + x^2))/(-1 + x)^5), {x, 0, 20}], x] (* Eric W. Weisstein, Sep 14 2017 *)
|
|
PROG
|
(PARI) z(n)=n^2*binomial(n, 2); for(i=1, 40, print1(", "z(i)))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|