|
|
A022151
|
|
Coordination sequence for root lattice B_9.
|
|
4
|
|
|
1, 162, 5154, 67266, 507906, 2653346, 10666146, 35310402, 100746498, 255708578, 590675490, 1262903490, 2531446530, 4804547490, 8702041250, 15135668034, 25410452994, 41350565538, 65453329442, 101075312322, 152654680578, 225974263458, 328470027426, 469589919554
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(0)=1; for n>0, a(n) = ( 2012*n^8 - 3952*n^7 + 27160*n^6 - 35392*n^5 + 81508*n^4 - 57568*n^3 + 45560*n^2 - 8928*n + 630 ) / 315. - Ralf Stephan, Apr 28 2004
G.f.: -(x^9 +825*x^8 +11124*x^7 +49380*x^6 +91118*x^5 +74574*x^4 +26628*x^3 +3732*x^2 +153*x +1)/(x -1)^9. - Colin Barker, Nov 18 2012
|
|
MATHEMATICA
|
CoefficientList[Series[-(x^9 + 825 x^8 + 11124 x^7 + 49380 x^6 + 91118 x^5 + 74574 x^4 + 26628 x^3 + 3732 x^2 + 153 x + 1)/(x - 1)^9, {x, 0, 30}], x] (* Vincenzo Librandi, Oct 17 2013 *)
Join[{1}, LinearRecurrence[{9, -36, 84, -126, 126, -84, 36, -9, 1}, {162, 5154, 67266, 507906, 2653346, 10666146, 35310402, 100746498, 255708578}, 30]] (* Harvey P. Dale, Mar 23 2015 *)
|
|
PROG
|
(Magma) [1] cat [(2012*n^8-3952*n^7+27160*n^6-35392*n^5+81508*n^4-57568*n^3+45560*n^2 -8928*n+630)/315: n in [1..30]]; // Vincenzo Librandi, Oct 17 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
mbaake(AT)sunelc3.tphys.physik.uni-tuebingen.de (Michael Baake)
|
|
STATUS
|
approved
|
|
|
|