

A059061


Cardmatching numbers (DinnerDiner matching numbers).


0



1, 0, 0, 0, 0, 24, 576, 0, 9216, 0, 20736, 0, 9216, 0, 576, 4783104, 25214976, 62705664, 98648064, 109859328, 87588864, 54411264, 23887872, 9455616, 1769472, 663552, 0, 13824, 248341303296, 1215287525376, 2855842873344
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,6


COMMENTS

This is a triangle of card matching numbers. Two decks each have n kinds of cards, 4 of each kind. The first deck is laid out in order. The second deck is shuffled and laid out next to the first. A match occurs if a card from the second deck is next to a card of the same kind from the first deck. Triangle T(n,k) is the number of ways of achieving exactly k matches (k=0..4n). The probability of exactly k matches is T(n,k)/(4n)!.
rows are of length 1,5,9,13,...


REFERENCES

F. N. David and D. E. Barton, Combinatorial Chance, Hafner, NY, 1962, Ch. 7 and Ch. 12.
J. Riordan, An Introduction to Combinatorial Analysis, Wiley, 1958, pp. 174178.
R. P. Stanley, Enumerative Combinatorics Volume I, Cambridge University Press, 1997, p. 71.


LINKS

Table of n, a(n) for n=0..30.
F. F. Knudsen and I. Skau, On the Asymptotic Solution of a CardMatching Problem, Mathematics Magazine 69 (1996), 190197.
Barbara H. Margolius, DinnerDiner Matching Probabilities
B. H. Margolius, The DinnerDiner Matching Problem, Mathematics Magazine, 76 (2003), 107118.
S. G. Penrice, Derangements, permanents and Christmas presents, The American Mathematical Monthly 98(1991), 617620.
Index entries for sequences related to card matching


FORMULA

G.f.: sum(coeff(R(x, n, k), x, j)*(t1)^j*(n*kj)!, j=0..n*k) where n is the number of kinds of cards, k is the number of cards of each kind (here k is 4) and R(x, n, k) is the rook polynomial given by R(x, n, k)=(k!^2*sum(x^j/((kj)!^2*j!))^n (see Stanley or Riordan). coeff(R(x, n, k), x, j) indicates the jth coefficient on x of the rook polynomial.


EXAMPLE

There are 9216 ways of matching exactly 2 cards when there are 2 different kinds of cards, 4 of each in each of the two decks so T(2,2)=9216.


MAPLE

p := (x, k)>k!^2*sum(x^j/((kj)!^2*j!), j=0..k); R := (x, n, k)>p(x, k)^n; f := (t, n, k)>sum(coeff(R(x, n, k), x, j)*(t1)^j*(n*kj)!, j=0..n*k);
for n from 0 to 4 do seq(coeff(f(t, n, 4), t, m), m=0..4*n); od;


MATHEMATICA

p[x_, k_] := k!^2*Sum[ x^j/((kj)!^2*j!), {j, 0, k}]; r[x_, n_, k_] := p[x, k]^n; f[t_, n_, k_] := Sum[ Coefficient[ r[x, n, k], x, j]*(t1)^j*(n*kj)!, {j, 0, n*k}]; a[n_, m_] := Coefficient[ f[t, n, 4], t, m]; Table[a[n, m], {n, 0, 4}, {m, 0, 4*n}] // Flatten (* JeanFrançois Alcover, Oct 07 2013, translated from Maple *)


CROSSREFS

Cf. A008290, A059056A059071.
Sequence in context: A158538 A171329 A077423 * A206991 A292282 A206933
Adjacent sequences: A059058 A059059 A059060 * A059062 A059063 A059064


KEYWORD

nonn,tabf,nice


AUTHOR

Barbara Haas Margolius (margolius(AT)math.csuohio.edu)


STATUS

approved



