OFFSET
0,13
COMMENTS
These are partitions with at most x x's for every x.
LINKS
Alois P. Heinz, Rows n = 0..200, flattened
EXAMPLE
Row n = 9 counts the following partitions:
. (9) (81) (621) (4221) . . . . .
(72) (531) (3321)
(63) (522)
(54) (441)
(432)
(333)
Triangle begins:
1
0 1
0 1 0
0 1 1 0
0 1 2 0 0
0 1 2 1 0 0
0 1 3 1 0 0 0
0 1 3 3 0 0 0 0
0 1 4 4 1 0 0 0 0
0 1 4 6 2 0 0 0 0 0
0 1 5 7 4 0 0 0 0 0 0
0 1 5 9 6 1 0 0 0 0 0 0
0 1 6 11 8 2 0 0 0 0 0 0 0
0 1 6 13 12 4 0 0 0 0 0 0 0 0
0 1 7 15 16 6 1 0 0 0 0 0 0 0 0
0 1 7 18 20 11 1 0 0 0 0 0 0 0 0 0
0 1 8 20 26 15 3 0 0 0 0 0 0 0 0 0 0
0 1 8 23 31 22 6 0 0 0 0 0 0 0 0 0 0 0
0 1 9 26 38 29 10 1 0 0 0 0 0 0 0 0 0 0 0
0 1 9 29 45 39 16 2 0 0 0 0 0 0 0 0 0 0 0 0
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1)+add(expand(x^j*b(n-i*j, i-1)), j=1..min(i, n/i))))
end:
T:= (n, k)-> coeff(b(n$2), x, k):
seq(seq(T(n, k), k=0..n), n=0..14); # Alois P. Heinz, Oct 03 2025
MATHEMATICA
Table[Length[Select[IntegerPartitions[n, {k}], And@@Table[Count[#, k]<=k, {k, Union[#]}]&]], {n, 0, 10}, {k, 0, n}]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gus Wiseman, Sep 23 2025
STATUS
approved
