|
|
A126275
|
|
Moment of inertia of all magic squares of order n.
|
|
4
|
|
|
5, 60, 340, 1300, 3885, 9800, 21840, 44280, 83325, 147620, 248820, 402220, 627445, 949200, 1398080, 2011440, 2834325, 3920460, 5333300, 7147140, 9448285, 12336280, 15925200, 20345000, 25742925, 32284980, 40157460, 49568540, 60749925, 73958560, 89478400
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (n^2 * (n^4 - 1))/12.
G.f.: -5*x^2*(x+1)*(x^2+4*x+1) / (x-1)^7. - Colin Barker, Dec 10 2012
|
|
MATHEMATICA
|
Array[(#^2*(#^4 - 1))/12 &, 31, 2] (* or *)
Drop[CoefficientList[Series[-5 x^2*(x + 1) (x^2 + 4 x + 1)/(x - 1)^7, {x, 0, 32}], x], 2] (* Michael De Vlieger, Apr 13 2021 *)
LinearRecurrence[{7, -21, 35, -35, 21, -7, 1}, {5, 60, 340, 1300, 3885, 9800, 21840}, 40] (* Harvey P. Dale, Apr 03 2023 *)
|
|
PROG
|
(PARI) Vec(-5*x^2*(x+1)*(x^2+4*x+1)/(x-1)^7 + O(x^30)) \\ Felix Fröhlich, May 31 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|