PROG
(MAGMAMagma) R<t>:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+t)*(1-t^5)/(1-43*t+945*t^5-903*t^6) )); // G. C. Greubel, Aug 09 2019
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A163749
(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 45 generators S_i with relations (S_i)^2 = (S_i S_j)^5 = I.
(history; published version)
(history; published version)
STATUS
editing
approved
FORMULA
a(n) = 43*a(n-1)+43*a(n-2)+43*a(n-3)+43*a(n-4)-946*a(n-5). - Wesley Ivan Hurt, May 11 2021
STATUS
approved
editing
STATUS
proposed
approved
STATUS
editing
proposed
PROG
(GAP) a:=[1, 45, 1980, 87120, 3833280, 168663330];; for n in [6..30] do a[n]:=43*(a[n-1]+a[n-2]+a[n-3]+a[n-4]) -946*a[n-5]; od; Concatenation([1], a); # G. C. Greubel, Aug 09 2019
STATUS
proposed
editing
STATUS
editing
proposed
LINKS
<a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (43, 43, 43, 43, -946).
STATUS
proposed
editing
STATUS
editing
proposed
PROG
(GAP) a:=[1, 44, 1892, 81356, 349830845, 1980, 87120, 3833280];; for n in [6..30] do a[n]:=43*(a[n-1]+a[n-2]+a[n-3]+a[n-4]) -946*a[n-5]; od; a; # G. C. Greubel, Aug 09 2019
STATUS
proposed
editing