cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 31-40 of 1232 results. Next

A169546 Number of reduced words of length n in Coxeter group on 5 generators S_i with relations (S_i)^2 = (S_i S_j)^35 = I.

Original entry on oeis.org

1, 5, 20, 80, 320, 1280, 5120, 20480, 81920, 327680, 1310720, 5242880, 20971520, 83886080, 335544320, 1342177280, 5368709120, 21474836480, 85899345920, 343597383680, 1374389534720, 5497558138880, 21990232555520, 87960930222080
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A003947, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 25); Coefficients(R!( (1+x)*(1-x^35)/(1-4*x+9*x^35-6*x^36) )); // G. C. Greubel, Apr 25 2019
    
  • Mathematica
    coxG[{35,6,-3,30}] (* The coxG program is at A169452 *) (* Harvey P. Dale, Jan 16 2015 *)
    CoefficientList[Series[(1+x)*(1-x^35)/(1-4*x+9*x^35-6*x^36), {x, 0, 25}], x] (* G. C. Greubel, Apr 25 2019 *)
  • PARI
    my(x='x+O('x^25)); Vec((1+x)*(1-x^35)/(1-4*x+9*x^35-6*x^36)) \\ G. C. Greubel, Apr 25 2019
    
  • Sage
    ((1+x)*(1-x^35)/(1-4*x+9*x^35-6*x^36)).series(x, 25).coefficients(x, sparse=False) # G. C. Greubel, Apr 25 2019

Formula

G.f.: (t^35 + 2*t^34 + 2*t^33 + 2*t^32 + 2*t^31 + 2*t^30 + 2*t^29 + 2*t^28 + 2*t^27 + 2*t^26 + 2*t^25 + 2*t^24 + 2*t^23 + 2*t^22 + 2*t^21 + 2*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)/(6*t^35 - 3*t^34 - 3*t^33 - 3*t^32 - 3*t^31 - 3*t^30 - 3*t^29 - 3*t^28 - 3*t^27 - 3*t^26 - 3*t^25 - 3*t^24 - 3*t^23 - 3*t^22 - 3*t^21 - 3*t^20 - 3*t^19 - 3*t^18 - 3*t^17 - 3*t^16 - 3*t^15 - 3*t^14 - 3*t^13 - 3*t^12 - 3*t^11 - 3*t^10 - 3*t^9 - 3*t^8 - 3*t^7 - 3*t^6 - 3*t^5 - 3*t^4 - 3*t^3 - 3*t^2 - 3*t + 1).
G.f.: (1+x)*(1-x^35)/(1 - 4*x + 9*x^35 - 6*x^36). - G. C. Greubel, Apr 25 2019

A163993 Number of reduced words of length n in Coxeter group on 25 generators S_i with relations (S_i)^2 = (S_i S_j)^6 = I.

Original entry on oeis.org

1, 25, 600, 14400, 345600, 8294400, 199065300, 4777560000, 114661267500, 2751866280000, 66044691360000, 1585070208000000, 38041627760729700, 912997692709095600, 21911911659905871900, 525885088676233035600
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A170744, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^7)/(1-24*x+299*x^6-276*x^7) )); // G. C. Greubel, Apr 25 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^7)/(1-24*x+299*x^6-276*x^7), {x,0,20}], x] (* G. C. Greubel, Aug 24 2017, modified Apr 25 2019 *)
    coxG[{6,276,-23}] (* The coxG program is at A169452 *) (* Harvey P. Dale, Aug 02 2018 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^7)/(1-24*x+299*x^6-276*x^7)) \\ G. C. Greubel, Aug 24 2017, modified Apr 25 2019
    
  • Sage
    ((1+x)*(1-x^7)/(1-24*x+299*x^6-276*x^7)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 25 2019

Formula

G.f.: (t^6 + 2*t^5 + 2*t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(276*t^6 - 23*t^5 - 23*t^4 - 23*t^3 - 23*t^2 - 23*t + 1).
G.f.: (1+x)*(1-x^7)/(1 -24*x +299*x^6 -276*x^7). - G. C. Greubel, Apr 25 2019

A164091 Number of reduced words of length n in Coxeter group on 41 generators S_i with relations (S_i)^2 = (S_i S_j)^6 = I.

Original entry on oeis.org

1, 41, 1640, 65600, 2624000, 104960000, 4198399180, 167935934400, 6717436064820, 268697390145600, 10747893507936000, 429915656401920000, 17196622899456671580, 687864781713487950000, 27514585897949409744420
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A170760, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^6)/(1-40*x+819*x^6-780*x^7) )); // G. C. Greubel, Apr 25 2019
    
  • Mathematica
    coxG[{6,780,-39}] (* The coxG program is at A169452 *) (* Harvey P. Dale, Apr 25 2015 *)
    CoefficientList[Series[(1+x)*(1-x^6)/(1-40*x+819*x^6-780*x^7), {x,0,20}], x] (* G. C. Greubel, Apr 25 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^6)/(1-40*x+819*x^6-780*x^7)) \\ G. C. Greubel, Apr 25 2019
    
  • Sage
    ((1+x)*(1-x^6)/(1-40*x+819*x^6-780*x^7)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 25 2019

Formula

G.f.: (t^6 + 2*t^5 + 2*t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(780*t^6 - 39*t^5 - 39*t^4 - 39*t^3 - 39*t^2 - 39*t + 1).
G.f.: (1+x)*(1-x^6)/(1 -40*x +819*x^6 -780*x^7). - G. C. Greubel, Apr 25 2019

A164779 Number of reduced words of length n in Coxeter group on 10 generators S_i with relations (S_i)^2 = (S_i S_j)^8 = I.

Original entry on oeis.org

1, 10, 90, 810, 7290, 65610, 590490, 5314410, 47829645, 430466400, 3874194000, 34867713600, 313809130800, 2824279552800, 25418492355600, 228766218624000, 2058894054430380, 18530029271219040, 166770108473225760
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A003952, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^8)/(1-9*x+44*x^8-36*x^9) )); // G. C. Greubel, Apr 26 2019
    
  • Mathematica
    coxG[{8,36,-8}] (* The coxG program is at A169452 *) (* Harvey P. Dale, Jun 13 2017 *)
    CoefficientList[Series[(1+x)*(1-x^8)/(1-9*x+44*x^8-36*x^9), {x,0,20}], x] (* G. C. Greubel, Apr 26 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^8)/(1-9*x+44*x^8-36*x^9)) \\ G. C. Greubel, Apr 26 2019
    
  • Sage
    ((1+x)*(1-x^8)/(1-9*x+44*x^8-36*x^9)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 26 2019

Formula

G.f.: (t^8 + 2*t^7 + 2*t^6 + 2*t^5 + 2*t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/( 36*t^8 - 8*t^7 - 8*t^6 - 8*t^5 - 8*t^4 - 8*t^3 - 8*t^2 - 8*t + 1).
G.f.: (1+x)*(1-x^8)/(1 -9*x +44*x^8 -36*x^9). - G. C. Greubel, Apr 26 2019

A165699 Number of reduced words of length n in Coxeter group on 45 generators S_i with relations (S_i)^2 = (S_i S_j)^9 = I.

Original entry on oeis.org

1, 45, 1980, 87120, 3833280, 168664320, 7421230080, 326534123520, 14367501434880, 632170063133730, 27815482777840560, 1223881242223068990, 53850774657730746960, 2369434084936444167840, 104255099737040360655360
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A170764, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^9)/(1-44*x+989*x^9-946*x^10) )); // G. C. Greubel, Apr 26 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^9)/(1-44*x+989*x^9-946*x^10), {x, 0, 20}], x] (* or *) coxG[{9, 946, -43}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 26 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^9)/(1-44*x+989*x^9-946*x^10)) \\ G. C. Greubel, Apr 26 2019
    
  • Sage
    ((1+x)*(1-x^9)/(1-44*x+989*x^9-946*x^10)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 26 2019

Formula

G.f.: (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)/(946*t^9 - 43*t^8 - 43*t^7 - 43*t^6 - 43*t^5 - 43*t^4 - 43*t^3 - 43*t^2 - 43*t + 1).
G.f.: (1+x)*(1-x^9)/(1 -44*x +989*x^9 -946*x^10). - G. C. Greubel, Apr 26 2019

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

Original entry on oeis.org

1, 4, 12, 30, 72, 168, 390, 900, 2076, 4782, 11016, 25368, 58422, 134532, 309804, 713406, 1642824, 3783048, 8711526, 20060676, 46195260, 106377294, 244963080, 564094968, 1298984214, 2991269124, 6888221772, 15862029150, 36526694472, 84112781928, 193692865350
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A003946, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.
From Bruno Berselli, Dec 28 2015: (Start)
Also, expansion of b(2)*b(3)/(1 - 2*x - 2*x^2 + 3*x^3), where b(k) = (1-x^k)/(1-x).
This is also the Poincaré series [or Poincare series] for the quasi-Lannér diagram QL4_22 - see Table 7.8 in Maxim Chapovalov, Dimitry Leites and Rafael Stekolshchik (2009), or equivalently Table 6 in the shorter version, Maxim Chapovalov, Dimitry Leites and Rafael Stekolshchik (2010).
(End)

Crossrefs

Cf. similar sequences listed in A265055.

Programs

  • Magma
    m:=40; R:=PowerSeriesRing(Integers(), m); b:=func; Coefficients(R!(b(2)*b(3)/(1-2*x-2*x^2+3*x^3))); // Bruno Berselli, Dec 28 2015 - see Chapovalov et al.
    
  • Magma
    R:=PowerSeriesRing(Integers(), 40); Coefficients(R!( (1+x)*(1-x^3)/(1-3*x+5*x^3-3*x^4) )); // G. C. Greubel, Apr 25 2019
    
  • Mathematica
    CoefficientList[Series[(x^3+2x^2+2x+1)/(3x^3-2x^2-2x+1), {x, 0, 40}], x ] (* Vincenzo Librandi, Apr 29 2014 *)
    coxG[{3, 3, -2, 40}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 25 2019 *)
  • PARI
    my(x='x+O('x^40)); Vec((1+x)*(1-x^3)/(1-3*x+5*x^3-3*x^4)) \\ G. C. Greubel, Apr 25 2019
    
  • Sage
    ((1+x)*(1-x^3)/(1-3*x+5*x^3-3*x^4)).series(x, 40).coefficients(x, sparse=False) # G. C. Greubel, Apr 25 2019

Formula

G.f.: (x^3 + 2*x^2 + 2*x + 1)/(3*x^3 - 2*x^2 - 2*x + 1).
From Bruno Berselli, Dec 28 2015: (Start)
a(n) = 2*a(n-1) + 2*a(n-2) - 3*a(n-3) for n>3.
a(n) = -2 + ((-7+2*sqrt(13))*(1-sqrt(13))^n + (7+2*sqrt(13))*(1+sqrt(13))^n)/(3*sqrt(13)*2^(n-1)) for n>0. (End)
G.f.: (1+x)*(1-x^3)/(1 -3*x +5*x^3 -3*x^4). - G. C. Greubel, Apr 25 2019

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

Original entry on oeis.org

1, 14, 182, 2275, 28392, 353808, 4408950, 54938520, 684572616, 8530235532, 106292493216, 1324476080928, 16503864518232, 205649272719072, 2562528512535264, 31930831990629936, 397879682765894784
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A170733, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • GAP
    a:=[14, 182, 2275];; for n in [4..20] do a[n]:=12*a[n-1]+12*a[n-2] - 78*a[n-3]; od; Concatenation([1], a); # G. C. Greubel, Apr 26 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^3)/(1-13*x+90*x^3-78*x^4) )); // G. C. Greubel, Apr 26 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^3)/(1-13*x+90*x^3-78*x^4), {x,0,20}],x] (* or *) coxG[{3, 78, -12}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 26 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^3)/(1-13*x+90*x^3-78*x^4)) \\ G. C. Greubel, Apr 26 2019
    
  • Sage
    ((1+x)*(1-x^3)/(1-13*x+90*x^3-78*x^4)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 26 2019
    

Formula

G.f.: (t^3 + 2*t^2 + 2*t + 1)/(78*t^3 - 12*t^2 - 12*t + 1).
G.f.: (1+x)*(1-x^3)/(1 - 13*x + 90*x^3 - 78*x^4). - G. C. Greubel, Apr 26 2019

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

Original entry on oeis.org

1, 15, 210, 2835, 38220, 514605, 6928740, 93285465, 1255955610, 16909618635, 227663487870, 3065158424055, 41267909559240, 555612506386665, 7480515990707760, 100714290692336685, 1355971748798391270
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A170734, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • GAP
    a:=[15, 210, 2835];; for n in [4..20] do a[n]:=13*a[n-1]+13*a[n-2] -91*a[n-3]; od; Concatenation([1], a); # G. C. Greubel, Apr 26 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^3)/(1-14*x+104*x^3-91*x^4) )); // G. C. Greubel, Apr 26 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^3)/(1-14*x+104*x^3-91*x^4), {x, 0, 20}], x] (* or *) coxG[{3, 91, -13}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 26 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^3)/(1-14*x+104*x^3-91*x^4)) \\ G. C. Greubel, Apr 26 2019
    
  • Sage
    ((1+x)*(1-x^3)/(1-14*x+104*x^3-91*x^4)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 26 2019
    

Formula

G.f.: (t^3 + 2*t^2 + 2*t + 1)/(91*t^3 - 13*t^2 - 13*t + 1).
G.f.: (1+x)*(1-x^3)/(1 - 14*x + 104*x^3 - 91*x^4). - G. C. Greubel, Apr 26 2019

A162983 Number of reduced words of length n in Coxeter group on 10 generators S_i with relations (S_i)^2 = (S_i S_j)^4 = I.

Original entry on oeis.org

1, 10, 90, 810, 7245, 64800, 579600, 5184000, 46366380, 414707040, 3709193760, 33175513440, 296726124240, 2653957198080, 23737339710720, 212309865780480, 1898927161041600, 16984252473131520, 151909371770042880
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A003952, although the two sequences are eventually different.
Computed with MAGMA using commands similar to those used to compute A154638.

Programs

  • GAP
    a:=[10,90,810,7245];; for n in [5..20] do a[n]:=8*(a[n-1]+a[n-2] +a[n-3]) - 36*a[n-4]; od; Concatenation([1], a); # G. C. Greubel, Apr 28 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^4)/(1-9*x+44*x^4-36*x^5) )); // G. C. Greubel, Apr 28 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^4)/(1-9*x+44*x^4-36*x^5), {x,0,20}], x]
    (* or *) coxG[{4, 36, -8}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 28 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^4)/(1-9*x+44*x^4-36*x^5)) \\ G. C. Greubel, Apr 28 2019
    
  • Sage
    ((1+x)*(1-x^4)/(1-9*x+44*x^4-36*x^5)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 28 2019
    

Formula

G.f.: (t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(36*t^4 - 8*t^3 - 8*t^2 - 8*t + 1).
From G. C. Greubel, Apr 28 2019: (Start)
a(n) = 8*(a(n-1) + a(n-2) + a(n-3)) - 36*a(n-4).
G.f.: (1+x)*(1-x^4)/(1 - 9*x + 44*x^4 - 36*x^5). (End)

A162987 Number of reduced words of length n in Coxeter group on 11 generators S_i with relations (S_i)^2 = (S_i S_j)^4 = I.

Original entry on oeis.org

1, 11, 110, 1100, 10945, 108900, 1083555, 10781100, 107269470, 1067306625, 10619454780, 105661128375, 1051303881870, 10460231387100, 104076892111005, 1035541095642900, 10303395297584895, 102516409155629700, 1020014649794722230, 10148910738927500925
Offset: 0

Views

Author

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

Keywords

Comments

The initial terms coincide with those of A003953, although the two sequences are eventually different.
Computed with Magma using commands similar to those used to compute A154638.

Programs

  • GAP
    a:=[11,110,1100,10945];; for n in [5..20] do a[n]:=9*(a[n-1]+a[n-2] +a[n-3] -5*a[n-4]); od; Concatenation([1], a); # G. C. Greubel, Apr 28 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 20); Coefficients(R!( (1+x)*(1-x^4)/(1-10*x+54*x^4-45*x^5) )); // G. C. Greubel, Apr 28 2019
    
  • Mathematica
    CoefficientList[Series[(1+x)*(1-x^4)/(1-10*x+54*x^4-45*x^5), {x,0,20}], x] (* or *) coxG[{4, 45, -9}] (* The coxG program is at A169452 *) (* G. C. Greubel, Apr 28 2019 *)
  • PARI
    my(x='x+O('x^20)); Vec((1+x)*(1-x^4)/(1-10*x+54*x^4-45*x^5)) \\ G. C. Greubel, Apr 28 2019
    
  • Sage
    ((1+x)*(1-x^4)/(1-10*x+54*x^4-45*x^5)).series(x, 20).coefficients(x, sparse=False) # G. C. Greubel, Apr 28 2019
    

Formula

G.f.: (t^4 + 2*t^3 + 2*t^2 + 2*t + 1)/(45*t^4 - 9*t^3 - 9*t^2 - 9*t + 1).
From G. C. Greubel, Apr 28 2019: (Start)
a(n) = 9*(a(n-1) + a(n-2) + a(n-3) - 5*a(n-4)).
G.f.: (1+x)*(1-x^4)/(1 - 10*x + 54*x^4 - 45*x^5). (End)
Previous Showing 31-40 of 1232 results. Next