OFFSET
0,32
COMMENTS
Counts finite multisets of positive integers by product and sum.
FORMULA
A(n,k) = A379666(k,n).
EXAMPLE
Array begins:
k=0 k=1 k=2 k=3 k=4 k=5 k=6 k=7 k=8 k=9 k10 k11 k12
---------------------------------------------------
n=1: 1 1 1 1 1 1 1 1 1 1 1 1 1
n=2: 0 0 1 1 1 1 1 1 1 1 1 1 1
n=3: 0 0 0 1 1 1 1 1 1 1 1 1 1
n=4: 0 0 0 0 2 2 2 2 2 2 2 2 2
n=5: 0 0 0 0 0 1 1 1 1 1 1 1 1
n=6: 0 0 0 0 0 1 2 2 2 2 2 2 2
n=7: 0 0 0 0 0 0 0 1 1 1 1 1 1
n=8: 0 0 0 0 0 0 2 2 3 3 3 3 3
n=9: 0 0 0 0 0 0 1 1 1 2 2 2 2
n=10: 0 0 0 0 0 0 0 1 1 1 2 2 2
n=11: 0 0 0 0 0 0 0 0 0 0 0 1 1
n=12: 0 0 0 0 0 0 0 2 3 3 3 3 4
The A(12,9) = 3 partitions are: (6,2,1), (4,3,1,1), (3,2,2,1,1).
The A(9,12) = 2 partitions are: (9,1,1,1), (3,3,1,1,1,1,1,1).
MATHEMATICA
nn=12;
tt=Table[Length[Select[IntegerPartitions[k], Times@@#==n&]], {n, 1, nn}, {k, 0, nn}] (* array *)
tr=Table[tt[[j, i-j]], {i, 2, nn}, {j, i-1}] (* antidiagonals *)
Join@@tr (* sequence *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gus Wiseman, Feb 10 2025
STATUS
approved