login
A246232
Number of compositions of n into exactly five different parts with distinct multiplicities.
2
37837800, 290089800, 913512600, 2870988120, 8647198560, 20798177400, 52611741000, 134182896120, 299814913440, 688027838400, 1598171790600, 3415039782840, 7488313184520, 16753428299160, 34973088459120, 74787505653264, 162128661286152, 333915200009352
OFFSET
35,1
LINKS
MATHEMATICA
b[n_, i_, s_List] := b[n, i, s] = If[n == 0, Total[s]!, If[i<1, 0, Expand[ Sum[ If[j>0 && MemberQ[s, j], 0, If[j == 0, 1, x]*b[n-i*j, i-1, If[j == 0, s, s ~Union~ {j}]]/j!], {j, 0, n/i}]]]]; a[n_] := Coefficient[b[n, n, {}], x, 5]; Table[a[n], {n, 35, 60}] (* Jean-François Alcover, Feb 11 2015, after Alois P. Heinz *)
CROSSREFS
Column k=5 of A242896.
Sequence in context: A204054 A206196 A272517 * A248710 A376794 A342350
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 19 2014
STATUS
approved