The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A319982 a(n) is the number of integer partitions of n with largest part <= 4 for which the index of the seaweed algebra formed by the integer partition paired with its weight is 0. 5
1, 1, 1, 2, 3, 2, 3, 3, 4, 3, 3, 2, 4, 2, 3, 1, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0, 4, 2, 3, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
COMMENTS
The index of a Lie algebra, g, is an invariant of the Lie algebra defined by min(dim(Ker(B_f)) where the min is taken over all linear functionals f on g and B_f denotes the bilinear form f([_,_]) were [,] denotes the bracket multiplication on g.
For seaweed subalgebras of sl(n), which are Lie subalgebras of sl(n) whose matrix representations are parametrized by an ordered pair of compositions of n, the index can be determined from a corresponding graph called a meander.
a(n) is periodic with period 4 for n > 16.
LINKS
V. Coll, A. Mayers, N. Mayers, Statistics on integer partitions arising from seaweed algebras, arXiv preprint arXiv:1809.09271 [math.CO], 2018.
V. Dergachev, A. Kirillov, Index of Lie algebras of seaweed type, J. Lie Theory 10 (2) (2000) 331-343.
FORMULA
For n > 16: a(n)=4 if 1 == n (mod 4), a(n)=2 if 2 == n (mod 4), a(n)=3 if 3 == n (mod 4), a(n)=0 if 0 == n (mod 4).
From Colin Barker, Apr 21 2019: (Start)
G.f.: x*(1 + x + x^2 + 2*x^3 + 2*x^4 + x^5 + 2*x^6 + x^7 + x^8 + x^9 - x^11 - x^13 - x^15 - x^19) / ((1 - x)*(1 + x)*(1 + x^2)).
a(n) = a(n-4) for n>20.
(End)
MATHEMATICA
Join[{1, 1, 1, 2, 3, 2, 3, 3, 4, 3, 3, 2, 4, 2, 3, 1}, LinearRecurrence[{0, 0, 0, 1}, {4, 2, 3, 0}, 100]] (* Jean-François Alcover, Dec 07 2018 *)
PROG
(PARI) Vec(x*(1 + x + x^2 + 2*x^3 + 2*x^4 + x^5 + 2*x^6 + x^7 + x^8 + x^9 - x^11 - x^13 - x^15 - x^19) / ((1 - x)*(1 + x)*(1 + x^2)) + O(x^100)) \\ Colin Barker, Apr 21 2019
CROSSREFS
Sequence in context: A106370 A128630 A273040 * A304331 A241834 A086389
KEYWORD
nonn
AUTHOR
Nick Mayers, Oct 03 2018
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 21 17:21 EDT 2024. Contains 372738 sequences. (Running on oeis4.)