login
A162367
Number of reduced words of length n in the Weyl group D_25.
49
1, 25, 324, 2900, 20149, 115805, 572975, 2507895, 9904050, 35818770, 120016066, 376029250, 1110031585, 3106677225, 8286768736, 21161266240, 51931463950, 122883804990, 281186004075, 623785796595, 1344621849285, 2822018693325, 5776896838830, 11553274693950
OFFSET
0,2
COMMENTS
First differs from A161932 at index n=25. - Andrew Howroyd, Mar 17 2025
REFERENCES
N. Bourbaki, Groupes et alg. 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)*Product_{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
f[m_] := (1-x^m)/(1-x);
With[{k = 25}, CoefficientList[f[k]*Product[f[2i], {i, 1, k-1}] + O[x]^(k-3), x]] (* Jean-François Alcover, Feb 15 2023, after Maple code *)
KEYWORD
nonn,fini,full
AUTHOR
John Cannon and N. J. A. Sloane, Dec 01 2009
STATUS
approved