A072811 T(n,k) = multiplicity of the k-th partition of n in Mathematica order, defined to be the count of its permutations (compositions).

1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 3, 1, 1, 2, 2, 3, 3, 4, 1, 1, 2, 2, 3, 1, 6, 4, 1, 6, 5, 1, 1, 2, 2, 3, 2, 6, 4, 3, 3, 12, 5, 4, 10, 6, 1, 1, 2, 2, 3, 2, 6, 4, 1, 6, 3, 12, 5, 3, 6, 12, 20, 6, 1, 10, 15, 7, 1, 1, 2, 2, 3, 2, 6, 4, 2, 6, 3, 12, 5, 3, 6, 12, 12, 20, 6, 1, 12, 10, 4, 30, 30, 7, 5, 20, 21, 8, 1

Offset: 0

Author

Wouter Meeussen, Aug 09 2002

Keywords

• easy
• nonn
• look
• tabf

Comments

The sum of row n equals A011782(n). The first and last columns equal 1. The number of integers per row equals the partition number p(n). Row n is a vector of weights or multiplicities relating counts of ordered versus unordered objects classified according to the partitions of n.

a(n) is the multinomial coefficient of the signature of the n-th partition. - Franklin T. Adams-Watters, Apr 08 2008

Let f(x)=1/(1-sum(j>=1, c[j]*x^j))=sum(n>=0, w(n)*x^n), then the coefficients of wn=Pn(c[1],...,c[n]), listed in reverse lexicographic order, give row n of T(n,k). - Groux Roland, Mar 08 2011

Examples

			The partitions of 4 are {4}, {3,1}, {2,2}, {2,1,1}, {1,1,1,1}, so the fourth row equals 1,2,1,3,1 since these are the counts of the permutations of these lists.
Triangle begins:
1;
1;
1, 1;
1, 2, 1;
1, 2, 1, 3, 1;
1, 2, 2, 3, 3, 4, 1;
1, 2, 2, 3, 1, 6, 4, 1, 6, 5, 1;
		

Links

• Alois P. Heinz, Rows n = 0..26, flattened

Crossrefs

Cf. A080577, A080575, A115621, A102462.

Programs

Mathematica

mult[li:{__Integer}] := Apply[Multinomial, Length/@Split[ Sort[li] ] ]; Table[mult/@Partitions[n], {n, 12}]

PARI

\\ here mulp(v) computes the multiplicity of the given partition.
mulp(v) = {my(p=(#v)!, k=1); for(i=2, #v, k=if(v[i]==v[i-1], k+1, p/=k!; 1)); p/k!}
Row(n)={apply(mulp, vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
{ for(n=0, 9, print(Row(n))) } \\ Peter Dolland, Nov 11 2019