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.

Showing 1-2 of 2 results.

A232162 Number of Weyl group elements, not containing an s_r factor, which contribute nonzero terms to Kostant's weight multiplicity formula when computing the multiplicity of the zero-weight in the adjoint representation for the Lie algebra of type B and rank n.

Original entry on oeis.org

0, 0, 2, 3, 5, 14, 30, 62, 139, 305, 660, 1444, 3158, 6887, 15037, 32842, 71698, 156538, 341799, 746273, 1629384, 3557592, 7767594, 16959611, 37029365, 80849350, 176525142, 385422198, 841524755, 1837371729, 4011688220, 8759056412, 19124384574, 41755877375, 91169119405
Offset: 0

Views

Author

Pamela E Harris, Nov 19 2013

Keywords

Examples

			For n=4, a(4) = A232162(3) + A232162(2) + 3*A232162(1) + A232162(0) = 3+2+3*0+0=5.
		

References

  • P. E. Harris, Combinatorial problems related to Kostant's weight multiplicity formula, PhD Dissertation, University of Wisconsin-Milwaukee, 2012.

Crossrefs

Programs

  • Maple
    a:=proc(n::nonnegint)
    if n=0 then return 0:
    elif n=1 then return 0:
    elif n=2 then return 2:
    elif n=3 then return 3:
    else return
    a(n-1)+a(n-2)+3*a(n-3)+a(n-4):
    end if;
    end proc:
  • Mathematica
    LinearRecurrence[{1, 1, 3, 1}, {0, 0, 2, 3}, 32] (* Jean-François Alcover, Nov 24 2017 *)
  • PARI
    Vec(-x^2*(x+2)/(x^4+3*x^3+x^2+x-1) + O(x^100)) \\ Colin Barker, Dec 31 2013

Formula

a(n) = A232162(n-1) + A232162(n-2) + 3*A232162(n-3) + A232162(n-4).
From Colin Barker, Dec 31 2013: (Start)
a(n) = a(n-1) + a(n-2) + 3*a(n-3) + a(n-4).
G.f.: -x^2*(x + 2)/(x^4 + 3*x^3 + x^2 + x - 1). (End)

A234598 Cardinality of the Weyl alternation set corresponding to the zero-weight in the adjoint representation of the Lie algebra of so(2n).

Original entry on oeis.org

9, 18, 35, 82, 180, 385, 846, 1853, 4034, 8810, 19249, 42014, 91727, 200298, 437316, 954809, 2084746, 4551801, 9938290, 21699138, 47377577, 103443386, 225856667, 493131922, 1076696324, 2350841633, 5132790390, 11206852917, 24468864530
Offset: 4

Views

Author

Erik Insko, Dec 28 2013

Keywords

Comments

Cardinality of the Weyl alternation set corresponding to the zero-weight in the adjoint representation of the Lie algebra of type D and rank n.

Examples

			For n = 8, a(n) = 107+73 = 180 and a(n) = 3(34) + 2(14) + 6(7) + 2(4) = 180.
		

Crossrefs

Programs

  • Maple
    r:=proc(n::nonnegint)
    if n<=3 then return 0:
    elif n=4 then return 4:
    elif n=5 then return 7:
    elif n=6 then return 14:
    elif n=7 then return 34:
    else return
    r(n-1)+r(n-2)+3*r(n-3)+r(n-4):
    end if;
    end proc:
    a:=proc(n::nonnegint)
    if n<=3 then return 0:
    elif n=4 then return 9:
    elif n=5 then return 18:
    elif n=6 then return 35:
    elif n=5 then return 82:
    else return
    3*r(n-1)+2*r(n-2)+6*r(n-3)+2*r(n-4):
    end if;
    end proc:
  • Mathematica
    LinearRecurrence[{1, 1, 3, 1}, {9, 18, 35, 82}, 30] (* Jean-François Alcover, Dec 06 2017 *)

Formula

a(n) = A234597(n) + A234576(n).
a(n) = 3*A234576(n-1) + 2*A234576(n-2) + 6*A234576(n-3) + 2*A234576(n-4).
G.f.: x^4*(2*x^3 + 8*x^2 + 9*x + 9)/(-x^4 - 3*x^3 - x^2 - x + 1). - Ralf Stephan, Jan 05 2014

Extensions

More terms from Ralf Stephan, Jan 05 2014
Showing 1-2 of 2 results.