A213932
Number of solid standard Young tableaux of shape [[n,n,n],[n,n]].
Original entry on oeis.org
1, 5, 707, 268326, 168146839, 143163177336, 149998192424502, 182598353781240533, 249032962712552804432, 371285830572997665257695, 594729699502746726969433566, 1010574132470951359396337494800, 1804193873947216124589237862262262
Offset: 0
-
b:= proc(l) option remember; local m; m:= nops(l);
`if`({map(x-> x[], l)[]}={0}, 1, add(add(`if`(l[i][j]>
`if`(i=m or nops(l[i+1])
`if`(nops(l[i])=j, 0, l[i][j+1]), b(subsop(i=subsop(
j=l[i][j]-1, l[i]), l)), 0), j=1..nops(l[i])), i=1..m))
end:
a:= n-> b([[n, n, n], [n, n]]):
seq(a(n), n=0..10);
-
b[l_] := b[l] = With[{ m = Length[l]}, If[Union[Flatten[l]] == {0}, 1, Sum[Sum[If[l[[i, j]] > If[i == m || Length[l[[i+1]]] < j, 0, l[[i+1, j]]] && l[[i, j]] > If[Length[l[[i]]] == j, 0, l[[i, j+1]]], b[ReplacePart[l, i -> ReplacePart[l[[i]], j -> l[[i, j]]-1]]], 0], {j, 1, Length[l[[i]]]}], {i, 1, m}]]]; a[n_] := b[{{n, n, n}, {n, n}}]; Table[a[n], {n, 0, 12}] (* Jean-François Alcover, Dec 18 2013, translated from Maple *)
A215204
Number A(n,k) of solid standard Young tableaux of cylindrical shape lambda X k, where lambda ranges over all partitions of n; square array A(n,k), n>=0, k>=0, read by antidiagonals.
Original entry on oeis.org
1, 1, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 4, 4, 5, 1, 1, 10, 26, 10, 7, 1, 1, 28, 276, 258, 26, 11, 1, 1, 84, 3740, 14318, 3346, 76, 15, 1, 1, 264, 58604, 1161678, 1214358, 54108, 232, 22, 1, 1, 858, 1010616, 118316062, 741215012, 150910592, 1054256, 764, 30
Offset: 0
Square array A(n,k) begins:
: 1, 1, 1, 1, 1, 1, ...
: 1, 1, 1, 1, 1, 1, ...
: 2, 2, 4, 10, 28, 84, ...
: 3, 4, 26, 276, 3740, 58604, ...
: 5, 10, 258, 14318, 1161678, 118316062, ...
: 7, 26, 3346, 1214358, 741215012, 620383261034, ...
: 11, 76, 54108, 150910592, 840790914296, 7137345113624878, ...
-
b:= proc(l) option remember; local m; m:= nops(l);
`if`({map(x-> x[], l)[]}minus{0}={}, 1, add(add(`if`(l[i][j]>
`if`(i=m or nops(l[i+1])
`if`(nops(l[i])=j, 0, l[i][j+1]), b(subsop(i=subsop(
j=l[i][j]-1, l[i]), l)), 0), j=1..nops(l[i])), i=1..m))
end:
g:= proc(n, i, k, l) `if`(n=0 or i=1, b(map(x-> [k$x], [l[], 1$n])),
add(g(n-i*j, i-1, k, [l[], i$j]), j=0..n/i))
end:
A:= (n, k)-> g(n, n, k, []):
seq(seq(A(n, d-n), n=0..d), d=0..10);
-
b[l_] := b[l] = With[{m = Length[l]}, If[Union[l // Flatten] ~Complement~ {0} == {}, 1, Sum[Sum[If[l[[i, j]] > If[i == m || Length[l[[i + 1]]] < j, 0, l[[i + 1, j]]] && l[[i, j]] > If[Length[l[[i]]] == j, 0, l[[i, j + 1]]], b[ReplacePart[l, i -> ReplacePart[l[[i]], j -> l[[i, j]] - 1]]], 0], {j, 1, Length[l[[i]]]}], {i, 1, m}]]];
g[n_, i_, k_, l_] := If[n == 0 || i == 1, b[Table[k, {#}]& /@ Join[l, Table[1, {n}]]], Sum[g[n - i*j, i - 1, k, Join[l, Table[i, {j}]]], {j, 0, n/i}]];
A[n_, k_] := g[n, n, k, {}];
Table[Table[A[n, d - n], {n, 0, d}], {d, 0, 10}] // Flatten (* Jean-François Alcover, Sep 24 2022, after Alois P. Heinz *)
A214637
Number of solid standard Young tableaux of shape [[n,n,n],[n,n],[n]].
Original entry on oeis.org
1, 16, 17086, 61189172, 404233159860, 3880365678824980, 47959061464818182058, 711513280222442751394224, 12121127323153614807021655742, 230127245538294682127207785787376, 4767460278053986542112719904243778834, 106115342273795146740243750912097789131600
Offset: 0
-
b:= proc(l) option remember; local m; m:= nops(l);
`if`({map(x-> x[], l)[]}={0}, 1, add(add(`if`(l[i][j]>
`if`(i=m or nops(l[i+1])
`if`(nops(l[i])=j, 0, l[i][j+1]), b(subsop(i=subsop(
j=l[i][j]-1, l[i]), l)), 0), j=1..nops(l[i])), i=1..m))
end:
a:= n-> b([[n, n, n], [n, n], [n]]):
seq(a(n), n=0..10);
-
b[l_] := b[l] = With[{m := Length[l]}, If[Union[Flatten[l]] == {0}, 1, Sum[Sum[If[l[[i, j]] > If[i == m || Length[l[[i+1]]] < j, 0, l[[i+1, j]]] && l[[i, j]] > If[Length[l[[i]]] == j, 0, l[[i, j+1]]], b[ReplacePart[l, i -> ReplacePart[l[[i]], j -> l[[i, j]]-1]]], 0], {j, 1, Length[l[[i]]]}], {i, 1, m}]] ]; a[n_] := b[{{n, n, n}, {n, n}, {n}}]; Table[a[n], {n, 0, 11}] // Flatten (* Jean-François Alcover, Dec 18 2013, translated from Maple *)
A214631
Number A(n,k) of solid standard Young tableaux of shape [[(n)^(k+1)],[n]^k]; square array A(n,k), n>=0, k>=0, read by antidiagonals.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 1, 6, 16, 1, 1, 20, 936, 192, 1, 1, 70, 85800, 379366, 2816, 1, 1, 252, 9962680, 1825221320, 249664758, 46592, 1, 1, 924, 1340103744, 14336196893200, 89261675900020, 221005209058, 835584, 1
Offset: 0
Square array A(n,k) begins:
1, 1, 1, 1, 1, ...
1, 2, 6, 20, 70, ...
1, 16, 936, 85800, 9962680, ...
1, 192, 379366, 1825221320, 14336196893200, ...
1, 2816, 249664758, 89261675900020, 70351928759681296000, ...
-
b:= proc(l) option remember; local m; m:= nops(l);
`if`({map(x-> x[], l)[]}={0}, 1, add(add(`if`(l[i][j]>
`if`(i=m or nops(l[i+1])
`if`(nops(l[i])=j, 0, l[i][j+1]), b(subsop(i=subsop(
j=l[i][j]-1, l[i]), l)), 0), j=1..nops(l[i])), i=1..m))
end:
A:= (n, k)-> b([[n$(k+1)], [n]$k]):
seq(seq(A(n, d-n), n=0..d), d=0..8);
-
b[l_] := b[l] = With[{m = Length[l]}, If[Union[Flatten[l]] == {0}, 1, Sum[Sum[If[l[[i, j]] > If[i == m || Length[l[[i+1]] ] < j, 0, l[[i+1, j]] ] && l[[i, j]] > If[Length[l[[i]] ] == j, 0, l[[i, j+1]] ], b[ReplacePart[l, i -> ReplacePart[l[[i]], j -> l[[i, j]]-1]]], 0], {j, 1, Length[l[[i]] ]}], {i, 1, m}]]]; a[n_, k_] := b[{Array[n&, k+1], Sequence @@ Array[{n}&, k]}]; Table[Table[a[n, d-n], {n, 0, d}], {d, 0, 8}] // Flatten (* Jean-François Alcover, Dec 18 2013, translated from Maple *)
Showing 1-4 of 4 results.
Comments