OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..40
S. B. Ekhad, D. Zeilberger, Computational and Theoretical Challenges on Counting Solid Standard Young Tableaux, arXiv:1202.6229v1 [math.CO], 2012
Wikipedia, Young tableau
MAPLE
b:= proc(n, l) option remember; `if`(n=0, 1,
b(n-1, [l[], [1]])+ add(`if`(i=1 or nops(l[i])<nops(l[i-1]),
b(n-1, subsop(i=[l[i][], 1], l)), 0)+ add(`if`(l[i][j]<2 and
(i=1 or l[i][j]<l[i-1][j]) and (j=1 or l[i][j]<l[i][j-1]),
b(n-1, subsop(i=subsop(j=l[i][j]+1, l[i]), l)), 0),
j=1..nops(l[i])), i=1..nops(l)))
end:
a:= n-> b(n, []):
seq(a(n), n=0..20);
MATHEMATICA
b[n_, l_] := b[n, l] = If[n == 0, 1, b[n - 1, Append[l, {1}]] + Sum[If[i == 1 || Length[l[[i]]] < Length[l[[i - 1]]], b[n - 1, ReplacePart[l, i -> Append[l[[i]], 1]]], 0] + Sum[If[l[[i, j]] < 2 && (i == 1 || l[[i, j]] < l[[i - 1, j]]) && (j == 1 || l[[i, j]] < l[[i, j - 1]]), b[n - 1, ReplacePart[l, i -> ReplacePart[l[[i]], j -> l[[i, j]] + 1]]], 0], {j, 1, Length[l[[i]]]}], {i, 1, Length[l]}]];
a[n_] := b[n, {}];
Table[Print[n, " ", a[n]]; a[n], {n, 0, 30}] (* Jean-François Alcover, Dec 01 2023, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 02 2012
STATUS
approved