|
|
A268347
|
|
Number of partitions of (4, n) into a sum of distinct pairs.
|
|
3
|
|
|
2, 7, 14, 27, 46, 74, 116, 174, 254, 363, 510, 703, 957, 1285, 1706, 2244, 2924, 3777, 4844, 6168, 7802, 9813, 12272, 15267, 18902, 23295, 28584, 34935, 42532, 51592, 62369, 75150, 90265, 108102, 129094, 153743, 182627, 216395, 255792, 301672, 354994, 416851
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ 3^(3/4) * n^(5/4) * exp(Pi*sqrt(n/3)) / (2*Pi^4).
|
|
MATHEMATICA
|
max=50; col=4; s1=Series[Product[(1+x^(n-k)*y^k), {n, 1, max+2}, {k, 0, n}], {y, 0, col}]//Normal; s2=Series[s1, {x, 0, max+1}]; a[n_]:=SeriesCoefficient[s2, {x, 0, n}, {y, 0, col}]; Table[a[n], {n, 0, max}] (* after Jean-François Alcover *)
nmax = 50; CoefficientList[Series[((2 + 3*x - x^3 - 4*x^4 - 2*x^5 + x^6 + x^7 + 2*x^8 - x^9) / ((1 - x)*(1 - x^2)*(1 - x^3)*(1 - x^4)))*Product[1 + x^k, {k, 1, nmax}], {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|