STATUS
editing
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A170694
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Number of reduced words of length n in Coxeter group on 13 generators S_i with relations (S_i)^2 = (S_i S_j)^50 = I.
(history; published version)
(history; published version)
MATHEMATICA
coxG[{50, 66, -11}] (* The coxG program is at A169452 *) (* Harvey P. Dale, Aug 11 2017 *)
STATUS
approved
editing
STATUS
editing
approved
LINKS
<a href="/index/Rec#order_50">Index entries for linear recurrences with constant coefficients</a>, signature (11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, -66).
STATUS
approved
editing
AUTHOR
_John Cannon (john(AT)maths.usyd.edu.au) _ and N. J. A. Sloane, Dec 03 2009
STATUS
editing
approved
COMMENTS
About the initial comment, first disagreement is at index 50 and the difference is 78. - Vincenzo Librandi, Dec 08 2012
MATHEMATICA
With[{num = Total[2 t^Range[49]] + t^50 + 1, den = Total[-11 t^Range[49]] + 66t66 t^50 + 1}, CoefficientList[Series[num/den, {t, 0, 20}], t]] (* Vincenzo Librandi, Dec 08 2012 *)
STATUS
proposed
editing
STATUS
editing
proposed
COMMENTS
About the initial comment, first disagreement is at index 50 and the difference is 78. - Vincenzo Librandi, Dec 08 2012
MATHEMATICA
With[{num = Total[2 t^Range[49]] + t^50 + 1, den = Total[-11 t^Range[49]] + 66t^50 + 1}, CoefficientList[Series[num/den, {t, 0, 20}], t]] (* Vincenzo Librandi, Dec 08 2012 *)
STATUS
approved
editing
AUTHOR
John Cannon (john(AT)maths.usyd.edu.au) and _N. J. A. Sloane (njas(AT)research.att.com), _, Dec 03 2009