A334057
Triangle read by rows: T(n,k) is the number of configurations with exactly k polyomino matchings in a generalized game of memory played on the path of length 4n.
Original entry on oeis.org
1, 0, 1, 31, 3, 1, 5474, 288, 12, 1, 2554091, 72026, 1476, 31, 1, 2502018819, 43635625, 508610, 5505, 65, 1, 4456194509950, 52673302074, 394246455, 2559565, 16710, 120, 1, 13077453070386914, 111562882654972, 580589062179, 2504572910, 10288390, 43806, 203, 1
Offset: 0
The first few rows of T(n,k) are:
1;
0, 1;
31, 3, 1;
5474, 288, 12, 1;
2554091, 72026, 1476, 31, 1;
...
For n=2 and k=1 the polyomino must start either on the second vertex of the path, the third, or the fourth, otherwise the remaining quadruple will also form a polyomino; thus T(2,1) = 3.
-
CoefficientList[Normal[Series[Sum[y^j*(4*j)!/24^j/j!/(1+y*(1-z))^(4*j+1),{j,0,20}],{y,0,20}]],{y,z}]
-
T(n,k)={sum(j=0, n-k, (-1)^(n-j-k)*(n+3*j)!/(24^j*j!*(n-j-k)!*k!))} \\ Andrew Howroyd, Apr 16 2020
A334058
Triangle read by rows: T(n,k) is the number of configurations with exactly k polyomino matchings in a generalized game of memory played on the path of length 5n.
Original entry on oeis.org
1, 0, 1, 121, 4, 1, 124760, 1347, 18, 1, 486854621, 2001548, 8154, 52, 1, 5184423824705, 10231953233, 17045774, 35542, 121, 1, 123243726413573515, 134835947255262, 112619668659, 102416812, 124881, 246, 1, 5717986519188343198259, 3821094862609800013, 1820735766620673, 863827126967, 486979381, 375627, 455, 1
Offset: 0
The first few rows of T(n,k) are:
1;
0, 1;
121, 4, 1;
124760, 1347, 18, 1;
486854621, 2001548, 8154, 52, 1;
...
For n=2 and k=1 the polyomino must start either on the second, third, fourth, or fifth vertex of the path, otherwise the remaining quintuple will also form a polyomino; thus T(2,1) = 4.
-
CoefficientList[Normal[Series[Sum[y^j*(5*j)!/120^j/j!/(1+y*(1-z))^(5*j+1),{j,0,20}],{y,0,20}]],{y,z}]
-
T(n,k)={sum(j=0, n-k, (-1)^(n-j-k)*(n+4*j)!/(120^j*j!*(n-j-k)!*k!))} \\ Andrew Howroyd, Apr 16 2020
A334059
Triangle read by rows: T(n,k) is the number of perfect matchings on {1, 2, ..., 2n} with k disjoint strings of adjacent short pairs.
Original entry on oeis.org
1, 0, 1, 1, 2, 0, 5, 8, 2, 0, 36, 49, 19, 1, 0, 329, 414, 180, 22, 0, 0, 3655, 4398, 1986, 344, 12, 0, 0, 47844, 55897, 25722, 5292, 377, 3, 0, 0, 721315, 825056, 384366, 87296, 8746, 246, 0, 0, 0, 12310199, 13856570, 6513530, 1577350, 192250, 9436, 90, 0, 0, 0
Offset: 0
Triangle begins:
1;
0, 1;
1, 2, 0;
5, 8, 2, 0;
36, 49, 19, 1 0;
...
For n=2 and k=1 the configurations are (1,4),(2,3) (i.e. a single short pair) and (1,2),(3,4) (i.e. two adjacent short pairs); hence T(2,1) = 2.
-
CoefficientList[Normal[Series[Sum[y^j*(2*j)!/2^j/j!*((1-y*(1-z))/(1-y^2*(1-z)))^(2*j+1), {j, 0, 20}], {y, 0, 20}]], {y, z}]
-
T(n)={my(v=Vec(sum(j=0, n, (2*j)! * x^j * (1-(1-y)*x + O(x*x^n))^(2*j+1) / (j! * 2^j * (1-(1-y)*x^2 + O(x*x^n))^(2*j+1))))); vector(#v, i, Vecrev(v[i], i))}
{ my(A=T(8)); for(n=1, #A, print(A[n])) } \\ Andrew Howroyd, May 25 2020
A334060
Triangle read by rows: T(n,k) is the number of set partitions of {1..3n} into n sets of 3 with k disjoint strings of adjacent sets, each being a contiguous set of elements.
Original entry on oeis.org
1, 0, 1, 7, 3, 0, 219, 56, 5, 0, 12861, 2352, 183, 4, 0, 1215794, 174137, 11145, 323, 1, 0, 169509845, 19970411, 1078977, 30833, 334, 0, 0, 32774737463, 3280250014, 153076174, 4056764, 55379, 206, 0, 0, 8400108766161, 730845033406, 29989041076, 727278456, 10341101, 67730, 70, 0, 0
Offset: 0
Triangle begins:
1;
0, 1;
7, 3, 0;
219, 56, 5, 0;
12861, 2352, 183, 4, 0;
...
For n=2 and k=1 the configurations are (1,5,6),(2,3,4) and (1,2,6),(3,4,5) (i.e. configurations with a single contiguous set) and (1,2,3),(4,5,6) (i.e. two adjacent contiguous sets); hence T(2,1) = 3.
-
CoefficientList[Normal[Series[Sum[y^j*(3*j)!/6^j/j!*((1-y*(1-z))/(1-y^2*(1-z)))^(3*j+1), {j, 0, 20}], {y, 0, 20}]], {y, z}]
-
T(n)={my(v=Vec(sum(j=0, n, (3*j)! * x^j * (1-(1-y)*x + O(x*x^n))^(3*j+1) / (j! * 6^j * (1-(1-y)*x^2 + O(x*x^n))^(3*j+1))))); vector(#v, i, Vecrev(v[i], i))}
{ my(A=T(8)); for(n=1, #A, print(A[n])) }
A334061
Triangle read by rows: T(n,k) is the number of set partitions of {1..4n} into n sets of 4 with k disjoint strings of adjacent sets, each being a contiguous set of elements.
Original entry on oeis.org
1, 0, 1, 31, 4, 0, 5474, 292, 9, 0, 2554091, 72318, 1206, 10, 0, 2502018819, 43707943, 438987, 2871, 5, 0, 4456194509950, 52717010017, 351487598, 1622954, 4355, 1, 0, 13077453070386914, 111615599664989, 528618296314, 1764575884, 4080889, 4385, 0, 0
Offset: 0
Triangle begins:
1;
0, 1;
31, 4, 0;
5474, 292, 9, 0;
2554091, 72318,1206, 10, 0;
...
For n=2 and k=1 the configurations are (1,6,7,8),(2,3,4,5), as well as (1,2,7,8),(3,4,5,6) and also (1,2,3,8),(4,5,6,7) (i.e. configurations with a single contiguous set) and (1,2,3,4),(5,6,7,8) (i.e. two adjacent contiguous sets); hence T(2,1) = 4.
-
CoefficientList[Normal[Series[Sum[y^j*(4*j)!/24^j/j!*((1-y*(1-z))/(1-y^2*(1-z)))^(4*j+1), {j, 0, 20}], {y, 0, 20}]], {y, z}]
-
T(n)={my(v=Vec(sum(j=0, n, (4*j)! * x^j * (1-(1-y)*x + O(x*x^n))^(4*j+1) / (j! * 24^j * (1-(1-y)*x^2 + O(x*x^n))^(4*j+1))))); vector(#v, i, Vecrev(v[i], i))}
{ my(A=T(8)); for(n=1, #A, print(A[n])) }
Showing 1-5 of 5 results.
Comments