

A259212


A total of n married couples, including a mathematician M and his wife W, are to be seated at the 2n chairs around a circular table. M and W are the first couple allowed to choose chairs, and they choose two chairs next to each other. The sequence gives the number of ways of seating the remaining couples so that women and men are in alternate chairs but M and W are the only couple seated next to each other.


7



0, 0, 0, 6, 72, 1920, 69120, 3402000, 218252160, 17708544000, 1773002649600, 214725759494400, 30941575378560000, 5231894853375590400, 1025881591718766182400, 230901375630648602880000, 59127083048250564931584000, 17091634972762948947148800000
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,4


COMMENTS

After M and W are seated at neighboring chairs, the problem of enumerating the ways of seating the remaining n1 married couples is equivalent to the following problem: find the number of ways of seating n1 married couples at 2*(n1) chairs in a straight line, men and women in alternate chairs, so that no husband is next to his wife. According to our comment in A000271, this problem has a solution 2*(n1)!*A000271(n1), n>=2. Here the coefficient 2 should be replaced by 1, since the place of the first woman W, by the condition, is already fixed.
Also the number of Hamiltonian paths in the (n1)crown graph for n > 3.  Eric W. Weisstein, Mar 27 2018


LINKS

Table of n, a(n) for n=1..18.
Vladimir Shevelev and Peter J. C. Moses, Alice and Bob go to dinner:A variation on menage, INTEGERS, Vol. 16(2016), #A72.
Eric Weisstein's World of Mathematics, Crown Graph
Eric Weisstein's World of Mathematics, Hamiltonian Path


FORMULA

a(n) = (n1)!*A000271(n1), for n>1.
From Vladimir Shevelev, Jul 07 2015: (Start)
Consider the general formula for solution A(r,n) in A258673 without the restriction A(r,n)=0 for n<=(d+1)/2 in case d=2*n1. The case when M and W sit at neighboring chairs corresponds to d=1, r=2 or d=2*n1, r=n+1. In both cases, from this formula we have
A(r,n) = a(n)/(n1)! = Sum_{j=0..n1}(1)^j * binomial(2*nj2,j)*(nj1)!, n>1. (End)


MATHEMATICA

a[n_] := (n1)! Sum[(1)^(nk+1) k! Binomial[n+k1, 2k], {k, 0, n}]; a[1] = 0; Array[a, 18] (* JeanFrançois Alcover, Sep 03 2016 *)
Join[{0}, Table[(1)^n (n  1)! HypergeometricPFQ[{1, 1  n, n}, {1/2}, 1/4], {n, 2, 20}]] (* Eric W. Weisstein, Mar 27 2018 *)


PROG

(PARI) a(n) = if (n==1, 0, my(m=n1); m!*sum(k=0, m, binomial(2*mk, k)*(mk)!*(1)^k)); \\ Michel Marcus, Jun 26 2015


CROSSREFS

Cf. A000179, A000271, A258664, A258665, A258666, A258667, A258673.
Sequence in context: A120331 A009523 A009793 * A279234 A132878 A006585
Adjacent sequences: A259209 A259210 A259211 * A259213 A259214 A259215


KEYWORD

nonn,nice


AUTHOR

Vladimir Shevelev, Jun 21 2015


EXTENSIONS

More terms from Peter J. C. Moses, Jun 21 2015


STATUS

approved



