A246233 Number of compositions of n into exactly six different parts with distinct multiplicities.

2053230379200, 18772392038400, 73402986056400, 257607082933200, 886531102657200, 2509031227903200, 7078865111398080, 19909183290796800, 51039390957675120, 128693357256063600, 326570236365292920, 777083694958410840, 1847217791018559960, 4410908197048833480

Offset

56,1

Links

Alois P. Heinz, Table of n, a(n) for n = 56..120

Mathematica

$RecursionLimit = 1000; 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, 6]; Table[a[n], {n, 56, 80}] (* Jean-François Alcover, Feb 11 2015, after Alois P. Heinz *)

Crossrefs

Column k=6 of A242896.

Sequence in context: A351431 A274808 A272518 * A234053 A335805 A032756

Adjacent sequences: A246230 A246231 A246232 * A246234 A246235 A246236

Keyword

nonn

Author

Alois P. Heinz, Aug 19 2014

Status

approved