|
|
A022150
|
|
Coordination sequence for root lattice B_8.
|
|
4
|
|
|
1, 128, 3264, 34624, 216448, 954880, 3301952, 9556160, 24165120, 54993792, 115021760, 224533056, 413862016, 726758656, 1224437056, 1990370240, 3135895040, 4806690432, 7190192832, 10524011840, 15105409920, 21301909504, 29563091008, 40433645248, 54567743744
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 1; for n > 0, a(n) = (3968*n^7 - 6720*n^6 + 35840*n^5 - 36960*n^4 + 60032*n^3 - 26880*n^2 + 11040*n)/315. - Philippe Deléham, Feb 20 2004
G.f.: (x^8 + 568*x^7 + 5852*x^6 + 18888*x^5 + 23750*x^4 + 12040*x^3 + 2268*x^2 + 120*x +1 )/(x -1)^8. - Colin Barker, Nov 18 2012
|
|
MATHEMATICA
|
CoefficientList[Series[(x^8 + 568 x^7 + 5852 x^6 + 18888 x^5 + 23750 x^4 + 12040 x^3 + 2268 x^2 + 120 x + 1)/(x - 1)^8, {x, 0, 30}], x] (* Vincenzo Librandi, Oct 17 2013 *)
|
|
PROG
|
(Magma) [1] cat [(3968*n^7-6720*n^6+35840*n^5-36960*n^4+60032*n^3 -26880*n^2+11040*n)/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
|
|
|
|