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 10b, page 231, W_a(t).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
Index entries for linear recurrences with constant coefficients, signature (2,-1,0,0,1,-2,2,-2,1,0,0,-1,2,-1).
FORMULA
The growth series for the affine Coxeter group of type B_k (k >= 2) has g.f. = Product_i (1-x^{m_i+1})/((1-x)*(1-x^{m_i})) where the m_i are [1,3,5,...,2k-1].
Here (k=4) the G.f. is (1+t+t^2+t^3+t^4+t^5+t^6+t^7)*(t^3+1)*(1+t+t^2+t^3)*(1+t) / (-1+t^7)/(-1+t^5)/(-1+t)^2.
a(n) = 2*a(n-1) - a(n-2) + a(n-5) - 2*a(n-6) + 2*a(n-7) - 2*a(n-8) + a(n-9) - a(n-12) + 2*a(n-13) - a(n-14), n > 0. - Muniru A Asiru, Oct 25 2018
MAPLE
seq(coeff(series((1-x^2)*(1+x^3)*(1-x^4)*(1-x^8)/((1-x)^5*(1-x^5)*(1-x^7)), x, n+1), x, n), n = 0 .. 55); # Muniru A Asiru, Oct 25 2018
MATHEMATICA
CoefficientList[Series[(1-t^2)*(1+t^3)*(1-t^4)*(1-t^8)/((1-t)^5*(1-t^5)*(1 - t^7)), {t, 0, 50}], t] (* G. C. Greubel, Oct 24 2018 *)
PROG
(PARI) t='t+O('t^40); Vec((1-t^2)*(1+t^3)*(1-t^4)*(1-t^8)/((1-t)^5*(1-t^5)*(1 - t^7))) \\ G. C. Greubel, Oct 24 2018
(Magma) m:=40; R<t>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1-t^2)*(1+t^3)*(1-t^4)*(1-t^8)/((1-t)^5*(1-t^5)*(1 - t^7)))); // G. C. Greubel, Oct 24 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jan 11 2016
STATUS
approved