cp's OEIS Frontend

A323582 Number of generalized Young tableaux with constant rows, weakly increasing columns, and entries summing to n.

%I A323582 #19 Aug 21 2020 01:46:49
%S A323582 1,1,3,5,11,16,33,47,85,126,208,299,486,685,1050,1496,2221,3097,4523,
%T A323582 6239,8901,12219,17093,23202,32120,43200,58899,78761,106210,140786,
%U A323582 188192,247689,327965,429183,563592,732730,955851,1235370,1600205,2057743,2649254
%N A323582 Number of generalized Young tableaux with constant rows, weakly increasing columns, and entries summing to n.
%C A323582 For strictly increasing columns, see A100883.
%e A323582 The a(5) = 16 tableaux:
%e A323582   5   1 1 1 1 1
%e A323582 .
%e A323582   1   2    1 1   1 1 1   1 1 1   1 1 1 1
%e A323582   4   3    3     2       1 1     1
%e A323582 .
%e A323582   1   1    1 1   1 1     1 1 1
%e A323582   1   2    1     1 1     1
%e A323582   3   2    2     1       1
%e A323582 .
%e A323582   1   1 1
%e A323582   1   1
%e A323582   1   1
%e A323582   2   1
%e A323582 .
%e A323582   1
%e A323582   1
%e A323582   1
%e A323582   1
%e A323582   1
%t A323582 comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
%t A323582 Table[Sum[Length[Select[comps[ptn],And@@SameQ@@@#&&GreaterEqual@@Length/@#&]],{ptn,Sort/@IntegerPartitions[n]}],{n,10}]
%Y A323582 Cf. A000085, A000219, A003293, A006951, A100883, A138178, A279784, A299968, A323432, A323436, A323437, A323438, A323450.
%K A323582 nonn
%O A323582 0,3
%A A323582 _Gus Wiseman_, Jan 19 2019
%E A323582 a(21)-a(40) from _Seiichi Manyama_, Aug 20 2020