cp's OEIS Frontend

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

%I A072811 #31 Sep 24 2023 11:09:51
%S A072811 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,
%T A072811 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,
%U A072811 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
%N A072811 T(n,k) = multiplicity of the k-th partition of n in Mathematica order, defined to be the count of its permutations (compositions).
%C A072811 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.
%C A072811 a(n) is the multinomial coefficient of the signature of the n-th partition. - _Franklin T. Adams-Watters_, Apr 08 2008
%C A072811 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
%H A072811 Alois P. Heinz, <a href="/A072811/b072811.txt">Rows n = 0..26, flattened</a>
%e A072811 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.
%e A072811 Triangle begins:
%e A072811 1;
%e A072811 1;
%e A072811 1, 1;
%e A072811 1, 2, 1;
%e A072811 1, 2, 1, 3, 1;
%e A072811 1, 2, 2, 3, 3, 4, 1;
%e A072811 1, 2, 2, 3, 1, 6, 4, 1, 6, 5, 1;
%t A072811 mult[li:{__Integer}] := Apply[Multinomial, Length/@Split[ Sort[li] ] ]; Table[mult/@Partitions[n], {n, 12}]
%o A072811 (PARI) \\ here mulp(v) computes the multiplicity of the given partition.
%o A072811 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!}
%o A072811 Row(n)={apply(mulp, vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
%o A072811 { for(n=0, 9, print(Row(n))) } \\ _Peter Dolland_, Nov 11 2019
%Y A072811 Cf. A080577, A080575, A115621, A102462.
%K A072811 easy,nonn,look,tabf
%O A072811 0,6
%A A072811 _Wouter Meeussen_, Aug 09 2002