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!)
A225618 Number of weak inversions in all standard Young tableaux of size n. 2

%I #31 Feb 18 2014 12:00:07

%S 0,1,6,29,125,538,2282,9916,43416,195206,891638,4176002,19920914,

%T 97248184,483752596,2458123328,12722535412,67155870194,360792258750,

%U 1974047659038,10983669569446,62162472053580,357454683655920,2088497013864312,12387836332741800

%N Number of weak inversions in all standard Young tableaux of size n.

%C A weak inversion is a pair of cells (i,j) with i<j where j appears weakly below and weakly left of i. [_Joerg Arndt_, Feb 18 2014]

%H Alois P. Heinz, <a href="/A225618/b225618.txt">Table of n, a(n) for n = 1..50</a>

%H M. Shynar, <a href="http://www-igm.univ-mlv.fr/~fpsac/FPSAC04/ARTICLES/Shynar.pdf">On Inversions in Standard Young Tableaux</a>

%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Young_tableau">Young tableau</a>

%p b:= proc(l) option remember; `if`({l[]}={0}, [1, 0],

%p add(`if`(l[j]>`if`(j=1, 0, l[j-1]), (f->f+[0, f[1]*

%p add(l[h]-l[j]+1, h=j+1..nops(l))])

%p (b(subsop(j=l[j]-1, l))), 0), j=1..nops(l)))

%p end:

%p g:= proc(n, i, l) `if`(n=0 or i=1, b([1$n, l[]]),

%p `if`(i<1, 0, g(n, i-1, l)+

%p `if`(i>n, 0, g(n-i, i, [i, l[]]))))

%p end:

%p a:= n-> g(n$2, [])[2]:

%p seq(a(n), n=1..23); # _Alois P. Heinz_, Aug 09 2013

%t inversions[t_?TableauQ]:=Block[{t0},t0=(First[Position[t,#1]]&) /@ Range[Max[t]]; Cases[Table[{i,j},{j,2,Max[t]},{i,j-1}],{i_,j_}/;MatchQ[t0[[i]]-t0[[j]],{_?Negative,_?Positive}]->{i,j},{2}]];

%t Table[Tr[Length[weakinversions[#]]& /@ Tableaux[n]],{n,12}]

%Y Cf. A225617 (strict inversions), A161125 (descent numbers).

%Y Cf. A000085 (Young tableaux with n cells).

%K nonn

%O 1,3

%A _Wouter Meeussen_, Aug 04 2013

%E Terms verified and more terms added, _Joerg Arndt_, Aug 07 2013

%E a(19)-a(25) from _Alois P. Heinz_, Aug 08 2013

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 March 29 02:23 EDT 2024. Contains 371264 sequences. (Running on oeis4.)