|
|
A013977
|
|
Molien series of 4-dimensional representation of u.g.g.r. #9.
|
|
1
|
|
|
1, 10, 40, 130, 283, 513, 883, 1372, 1994, 2836, 3853, 5059, 6565, 8302, 10284, 12646, 15295, 18245, 21655, 25408, 29518, 34168, 39217, 44679, 50761, 57298, 64304, 72010, 80227, 88969, 98491, 108580, 119250, 130780, 142933, 155723, 169453, 183862, 198964, 215086, 231943, 249549, 268255, 287752
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1+8*x+21*x^2+58*x^3+47*x^4+35*x^5+21*x^6+x^7)/(1-x)^2/(1-x^3)^2
|
|
MAPLE
|
(1+8*x+21*x^2+58*x^3+47*x^4+35*x^5+21*x^6+x^7)/(1-x)^2/(1-x^3)^2;
|
|
MATHEMATICA
|
CoefficientList[Series[(1 + 8 x + 21 x^2 + 58 x^3 + 47 x^4 + 35 x^5 + 21 x^6 + x^7) / (1 - x)^2 / (1 - x^3)^2, {x, 0, 60}], x] (* Vincenzo Librandi, Aug 15 2013 *)
|
|
PROG
|
(PARI) a(n)=(32/3*n^3 +8*n^2 + 19/3*n +2+if(n%3==2, -16*((n-2)/3)-12, 8*floor(n/3)+(n%3)*2+1))/3 /* Ralf Stephan, Aug 15 2013 */
(PARI) x='x+O('x^66); Vec( (1+8*x+21*x^2+58*x^3+47*x^4+35*x^5+21*x^6+x^7)/(1-x)^2/(1-x^3)^2 ) \\ Joerg Arndt, Aug 15 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|