A168824 Number of reduced words of length n in Coxeter group on 3 generators S_i with relations (S_i)^2 = (S_i S_j)^20 = I.

1, 3, 6, 12, 24, 48, 96, 192, 384, 768, 1536, 3072, 6144, 12288, 24576, 49152, 98304, 196608, 393216, 786432, 1572861, 3145716, 6291423, 12582828, 25165620, 50331168, 100662192, 201324096, 402647616, 805294080, 1610585856, 3221167104

Offset

0,2

Comments

The initial terms coincide with those of A003945, although the two sequences are eventually different.

First disagreement at index 20: a(20) = 1572861, A003945(20) = 1572864. - Klaus Brockhaus, Apr 01 2011

Computed with MAGMA using commands similar to those used to compute A154638.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1).

Formula

G.f.: (t^20 + 2*t^19 + 2*t^18 + 2*t^17 + 2*t^16 + 2*t^15 + 2*t^14 + 2*t^13 + 2*t^12 + 2*t^11 + 2*t^10 + 2*t^9 + 2*t^8 + 2*t^7 + 2*t^6 + 2*t^5 + 2*t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(t^20 - t^19 - t^18 - t^17 - t^16 - t^15 - t^14 - t^13 - t^12 - t^11 - t^10 - t^9 - t^8 - t^7 - t^6 - t^5 - t^4 - t^3 - t^2 - t + 1).

Mathematica

CoefficientList[Series[(t^20 + 2*t^19 + 2*t^18 + 2*t^17 + 2*t^16 + 2*t^15 + 2*t^14 + 2*t^13 + 2*t^12 + 2*t^11 + 2*t^10 + 2*t^9 + 2*t^8 + 2*t^7 + 2*t^6 + 2*t^5 + 2*t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(t^20 - t^19 - t^18 - t^17 - t^16 - t^15 - t^14 - t^13 - t^12 - t^11 - t^10 - t^9 - t^8 - t^7 - t^6 - t^5 - t^4 - t^3 - t^2 - t + 1), {t, 0, 100}], t] (* G. C. Greubel, Nov 21 2016 *)

Crossrefs

Cf. A003945 (G.f.: (1+x)/(1-2*x)).

Sequence in context: A168680 A168728 A168776 * A168872 A168920 A168968

Adjacent sequences: A168821 A168822 A168823 * A168825 A168826 A168827

Keyword

nonn,easy

Author

John Cannon and N. J. A. Sloane, Dec 03 2009

Status

approved