[go: up one dir, main page]

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!)
A124292 revision #19

A124292 Number of free generators of degree n of symmetric polynomials in 4 noncommuting variables. 11
1, 1, 2, 6, 21, 78, 297, 1143, 4419, 17118, 66366, 257391, 998406, 3873015, 15024609, 58285737, 226111986, 877174110, 3402893997, 13201132950, 51212274057, 198672129783, 770725711035, 2989941920334, 11599136512038, 44997518922327, 174562710686622 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
COMMENTS
Also the number of non-splitable set partitions (see Bergeron et al. reference) of length <=4.
Also the number of nonisomorphic graded posets with 0 and 1 of rank n with no 3-element antichain. (Richard Stanley, Nov 30 2011)
Also the number of nonisomorphic graded posets with 0 of rank n+1 with no 3-element antichain. (Using Stanley's definition of graded, that all maximal chains have length n.) -David Nacin, Feb 26 2012
REFERENCES
Stanley, Richard P., Enumerative combinatorics. Vol. 1.Cambridge University Press, Cambridge, 1997. pages 96-100
LINKS
N. Bergeron, C. Reutenauer, M. Rosas, M. Zabrocki, Invariants and Coinvariants of the Symmetric Group in Noncommuting Variables , MR2398749, Cand. J. Math 60 (2008) 266-296.
M. C. Wolf, Symmetric functions of noncommutative elements, Duke Math. J. 2 (1936), 626-637.
FORMULA
O.g.f.: (1-5q+5q^2)/(1-6q+9q^2-3q^3) = 1 - 1/(sum_{k=0}^4 q^k/(prod_{i=1}^k (1-i*q))).
a(n) = 6a(n-1) - 9a(n-2) + 3a(n-3). - David Nacin (nacind(AT)wpunj.edu), Feb 11 2012
a(n) = A055105(n,1) + A055105(n,2) + A055105(n,3) + A055105(n,4) = A055106(n,1) + A055106(n,2) + A055106(n,3).
Given matrix A = [[2,1,1],[1,3,0],[1,1,1]], a(n+1) = top left entry in A^n. - David Nacin, Feb 11 2012
MAPLE
a:= n-> (Matrix([[2, 1, 1]]). Matrix(3, (i, j)-> if i=j-1 then 1 elif j=1 then [6, -9, 3][i] else 0 fi)^(n-1))[1, 3]: seq (a(n), n=1..26); # Alois P. Heinz (heinz(AT)hs-heilbronn.de), Sep 05 2008
MATHEMATICA
m = {{2, 1, 1}, {1, 3, 0}, {1, 1, 1}}; Table[MatrixPower[m, n][[1, 1]], {n, 0, 40}] (* David Nacin, Feb 11 2012 *)
LinearRecurrence[{6, -9, 3}, {1, 1, 2}, 70] (* From Vladimir Joseph Stephan Orlovsky, Feb 26 2012 *)
CROSSREFS
Sequence in context: A144169 A355152 A363813 * A277221 A360168 A129776
KEYWORD
nonn
AUTHOR
Mike Zabrocki (zabrocki(AT)mathstat.yorku.ca), Oct 24 2006
STATUS
editing

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 August 30 21:23 EDT 2024. Contains 375549 sequences. (Running on oeis4.)