login
A364422
Expansion of e.g.f. x^2/(1-x-x^2)^2.
1
0, 0, 2, 12, 120, 1200, 14400, 191520, 2862720, 47174400, 852768000, 16765056000, 356377190400, 8144943206400, 199202395392000, 5191467240960000, 143634952581120000, 4204936774950912000, 129865748246986752000, 4219868533182382080000, 143918318293689139200000
OFFSET
0,3
COMMENTS
a(n) is the number of ways to partition [n] into blocks of size at most 2, order the blocks, order the elements within each block, and choose 2 elements from a block.
FORMULA
a(n) = A000142(n)*A001629(n).
EXAMPLE
a(6)=14400 since the number of ways to partition [6] into blocks of size at most 2, order the blocks, order the elements within each block, and select 2 elements from a block are the following:
(i) 12,3,4,5,6: 3600 such orderings, 1 way to choose 2 elements (from the block with 2 elements), hence 3600 ways;
(ii) 12,34,5,6: 4320 such orderings, 2 ways to choose 2 elements (from one of the two blocks with 2 elements), hence 8640 ways.
(iii) 12,34,56: 720 such orderings, 3 ways to choose 2 elements (from one of the three blocks with 2 elements), hence 2160 ways.
MATHEMATICA
With[{m = 20}, Range[0, m]! * CoefficientList[Series[x^2/(1 - x - x^2)^2, {x, 0, m}], x]] (* Amiram Eldar, Sep 02 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Enrique Navarrete, Sep 01 2023
STATUS
approved