A204841 (2n)! - 2^n*n!.

0, 0, 16, 672, 39936, 3624960, 478955520, 87177646080, 20922779566080, 6402373519933440, 2432902004460748800, 1124000727695858073600, 620448401731277448806400, 403291461126554623829606400, 304888344611712432172380979200, 265252859812191015786434789376000

Offset

0,3

Comments

a(n) is the number of ways to seat (linearly order) n married couples so that at least one couple is separated.

Links

Table of n, a(n) for n=0..15.

Formula

a(n) = A010050(n) - A000165(n).

Mathematica

Table[(2n)! - 2^n n!, {n, 0, 20}]

Crossrefs

Cf. A007060.

Sequence in context: A197429 A231936 A326210 * A264533 A253126 A014733

Adjacent sequences: A204838 A204839 A204840 * A204842 A204843 A204844

Keyword

nonn

Author

Geoffrey Critzer, Jan 19 2012

Status

approved