login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A162288
Number of reduced words of length n in the Weyl group D_11.
50
1, 11, 65, 275, 934, 2706, 6941, 16159, 34749, 69927, 132991, 240900, 418187, 699193, 1130581, 1774058, 2709201, 4036252, 5878719, 8385597, 11733007, 16125043, 21793619, 28997122, 38017704, 49157086, 62730799, 79060850
OFFSET
0,2
REFERENCES
N. Bourbaki, Groupes et Algèbres de Lie, Chap. 4, 5 and 6, Hermann, Paris, 1968. See Chap. VI, Section 4, Problem 10a, page 231, W(t).
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
# Growth series for D_k, truncated to terms of order M. - N. J. A. Sloane, Aug 07 2021
f := proc(m::integer) (1-x^m)/(1-x) ; end proc:
g := proc(k, M) local a, i; global f;
a:=f(k)*mul(f(2*i), i=1..k-1);
seriestolist(series(a, x, M+1));
end proc;
MATHEMATICA
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 *)
x =.; n = 11; CoefficientList[ Product[1 - x^(2 k), {k, 1, n - 1}] (1 - x^n) /(1 - x)^n // Expand, x] (* Michael Somos, Aug 06 2021 *)
KEYWORD
nonn
AUTHOR
John Cannon and N. J. A. Sloane, Dec 01 2009
EXTENSIONS
Entry revised by N. J. A. Sloane, Jan 17 2016
STATUS
approved