login
A162208
Number of reduced words of length n in the Weyl group D_5.
49
1, 5, 14, 30, 54, 85, 120, 155, 185, 205, 212, 205, 185, 155, 120, 85, 54, 30, 14, 5, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
0,2
REFERENCES
N. Bourbaki, Groupes et algèbres de Lie, Chap. 4, 5, 6. (The group is defined in Planche IV.)
J. E. Humphreys, Reflection Groups and Coxeter Groups, Cambridge, 1990. See under Poincaré polynomial.
FORMULA
The growth series for D_k is the polynomial f(k)*Prod_{i=1..k-1} f(2*i), where f(m) = (1-x^m)/(1-x) [Corrected by N. J. A. Sloane, Aug 07 2021]. This is a row of the triangle in A162206.
MAPLE
A162208g := proc(m::integer)
(1-x^m)/(1-x) ;
end proc:
A162208 := proc(n, k)
g := A162208g(k);
for m from 2 to 2*k-2 by 2 do
g := g*A162208g(m) ;
end do:
g := expand(g) ;
coeftayl(g, x=0, n) ;
end proc:
seq( A162208(n, 5), n=0..60) ; # R. J. Mathar, Jan 19 2016
MATHEMATICA
n = 5;
x = y + y O[y]^(n^2);
(1-x^n) Product[1-x^(2k), {k, 1, n-1}]/(1-x)^n // CoefficientList[#, y]& (* Jean-François Alcover, Mar 25 2020, from A162206 *)
KEYWORD
nonn
AUTHOR
John Cannon and N. J. A. Sloane, Dec 01 2009
STATUS
approved