|
|
A244174
|
|
Number of compositions of 3n in which the minimal multiplicity of parts equals n.
|
|
8
|
|
|
1, 3, 7, 21, 71, 253, 925, 3433, 12871, 48621, 184757, 705433, 2704157, 10400601, 40116601, 155117521, 601080391, 2333606221, 9075135301, 35345263801, 137846528821, 538257874441, 2104098963721, 8233430727601, 32247603683101, 126410606437753, 495918532948105
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
Recurrence: see Maple program.
|
|
EXAMPLE
|
a(2) = 7: [1,1,2,2], [1,2,1,2], [1,2,2,1], [2,1,1,2], [2,1,2,1], [2,2,1,1], [3,3].
|
|
MAPLE
|
a:= proc(n) option remember;
`if`(n<3, 2^(n+1)-1, ((15*n^2-31*n+12) *a(n-1)
-2*(3*n-2)*(2*n-3) *a(n-2)) / ((3*n-5)*n))
end:
seq(a(n), n=0..30);
|
|
MATHEMATICA
|
a[n_] := a[n] = If[n < 3, 2^(n+1) - 1, ((15*n^2 - 31*n + 12)*a[n-1] - 2*(3*n - 2)*(2*n - 3)*a[n-2])/((3*n - 5)*n)]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Nov 07 2014, after Alois P. Heinz *)
|
|
PROG
|
(Sage)
A244174 = lambda m: SetPartitions(2*m, [2*m]).cardinality()+2*SetPartitions(2*m, [m, m]).cardinality()
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|