|
|
A037240
|
|
Molien series for 3-D group X1.
|
|
6
|
|
|
1, 1, 5, 10, 24, 42, 83, 132, 222, 335, 511, 728, 1047, 1428, 1956, 2586, 3414, 4389, 5638, 7084, 8888, 10966, 13494, 16380, 19841, 23751, 28371, 33566, 39616, 46376, 54177, 62832, 72726, 83661, 96045, 109668, 124999, 141778, 160538, 181006, 203742, 228459, 255788, 285384
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Also preference profiles with 3 alternatives and n agents (IANC model). - Alexander Karpov, Nov 23 2017
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1 + x^2 + 3*x^3 + 5*x^4 + x^5 + x^6)/((1 - x)*(1 - x^2)^3*(1 - x^3)^2).
if n == 0 mod 6, a(n) = C(n+5,5)/6 + (n+4)*(n+2)/16 + (n+3)/9;
if n == 3 mod 6, a(n) = C(n+5,5)/6 + (n+3)/9;
if n == 2,4 mod 6, a(n) = C(n+5,5)/6 + (n+4)*(n+2)/16;
if n == 1,5 mod 6, a(n) = C(n+5,5)/6.
(End)
|
|
MAPLE
|
S:= series((1+x^2+3*x^3+5*x^4+x^5+ x^6)/(1 - x)/(1 - x^2)^3/(1 - x^3)^2, x, 101):
|
|
MATHEMATICA
|
CoefficientList[Series[(1 +x^2 +3x^3 +5x^4 +x^5 +x^6)/(1-x)/(1-x^2)^3/(1-x^3)^2, {x, 0, 43}], x] (* Michael De Vlieger, Nov 01 2017 *)
|
|
PROG
|
(PARI) Vec((1+x^2+3*x^3+5*x^4+x^5+x^6)/(1-x)/(1-x^2)^3/(1-x^3)^2 + O(x^50)) \\ Michel Marcus, Oct 31 2017
(Magma) R<x>:=PowerSeriesRing(Integers(), 50); Coefficients(R!( (1 +x^2 +3*x^3 +5*x^4 +x^5 +x^6)/((1-x)*(1-x^2)^3*(1-x^3)^2) )); // G. C. Greubel, Jan 31 2020
(Sage)
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (1+x^2+3*x^3+5*x^4+x^5+x^6)/((1-x)*(1-x^2)^3*(1-x^3)^2) ).list()
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|