A239888 -id:A239888 - cp's OEIS frontend

A037256 a(n) = n!Sum_{i=0..n-1} (n-i)(-2)^i/(i+1)!.

0, 1, 2, 10, 48, 296, 2080, 16752, 151424, 1519744, 16766208, 201685760, 2627316736, 36847260672, 553551644672, 8868624615424, 150943592939520, 2719816264613888, 51724646086475776, 1035359388788391936, 21759010038674358272, 479027478333199482880

Offset: 0

N. J. A. Sloane

nonn

Arises from "Unfriendly Seating Arrangement" problem around a circular table.

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Cristian F. Coletti, Sandro Gallo, Alejandro Roldán-Correa, and León A. Valencia, Fluctuations of the Occupation Density for a Parking Process, J. Statist. Phys. (2024) Vol. 191, No. 146. See p. 5.
Philippe Flajolet, A seating arrangement problem
Philippe Flajolet, A seating arrangement problem [Cached copy]
Dave Freedman and Larry Shepp, An unfriendly seating arrangement, Problem 62-3, SIAM Review, Vol. 6 (1964), 180-182.

Cf. A095236, A239888, A239889.

f:=n->n!*add((n-i)*(-2)^i/(i+1)!,i=0..n-1);
[seq(f(n),n=0..50)]; # N. J. A. Sloane, Mar 29 2014

m = 19; CoefficientList[ Series[(1 - Exp[-2x])*(1/((1-x)^2*2)), {x, 0, m}], x]*Range[0, m]!
(* Jean-François Alcover, Jun 28 2011 *)
Flatten[{0,Table[n!*Sum[Sum[(-1)^j*2^j/(j+1)!,{j,0,k}],{k,0,n-1}],{n,1,20}]}] (* Vaclav Kotesovec, Oct 27 2012 *)

x='x+O('x^66); concat([0],Vec(serlaplace((1-exp(-2*x))/(2*(1-x)^2)))) \\ Joerg Arndt, May 04 2013

E.g.f.: (1-exp(-2*x))*(1-x)^(-2)/2.
a(n) = 2*(n-1)*a(n-1) - (n-4)*(n-1)*a(n-2) - 2*(n-2)*(n-1)*a(n-3). - Vaclav Kotesovec, Oct 08 2012
a(n) ~ (1-1/e^2)*n!*n/2. - Vaclav Kotesovec, Oct 08 2012
a(n) = (-2)^n + (n+1)!/2 - (3+n)*Gamma(1+n,-2)/(2*e^2). - Benedict W. J. Irwin, Jul 06 2020

Entry revised by N. J. A. Sloane, Mar 29 2014

A239889 From unfriendly seating arrangement problem for fat men at a circular table with n seats.

Original entry on oeis.org

0, 1, 2, 6, 36, 216, 1440, 11520, 103824, 1032192, 11311488, 135432000, 1756751040, 24546246912, 367583014656, 5872797874944, 99709066195200, 1792707696046080, 34026520304848896, 679901687704470528, 14265989230889290752, 313612842057647616000, 7208078043054064619520, 172883491724308733964288, 4319548522560325245210624

Offset: 0

N. J. A. Sloane, Mar 29 2014

nonn

Philippe Flajolet, A seating arrangement problem. See page 11.
Philippe Flajolet, A seating arrangement problem [Cached copy]. See page 11.
Dave Freedman and Larry Shepp, An unfriendly seating arrangement, Problem 62-3, SIAM Review, Vol. 6 (1964), 180-182.

Cf. A037256, A239888, A095236.

gb:=proc(n,b) local k; option remember;
if n<=0 then 1 elif n<=b then u else expand(u/n*convert([seq(gb(k-b-1,b)*gb(n-k-b,b),k=1..n)],`+`))
fi
end:
l3:=subs(u=1,diff([seq(gb(j,2),j=0..25)],u));
[seq(l3[i]*(i-1)!,i=1..26)];

g[n_, b_] := g[n, b] = Which[n <= 0, 1, n <= b, u, True, u/n Sum[g[k-b-1, b] g[n-k-b, b], {k, 1, n}]];
D[Table[g[j, 2] j!, {j, 0, 25}], u] /. u -> 1 (* Jean-François Alcover, Jul 29 2018, from Maple *)

cp's OEIS Frontend

A037256 a(n) = n!Sum_{i=0..n-1} (n-i)(-2)^i/(i+1)!.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A239889 From unfriendly seating arrangement problem for fat men at a circular table with n seats.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

cp's OEIS Frontend

A037256 a(n) = n!*Sum_{i=0..n-1} (n-i)*(-2)^i/(i+1)!.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A239889 From unfriendly seating arrangement problem for fat men at a circular table with n seats.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A037256 a(n) = n!Sum_{i=0..n-1} (n-i)(-2)^i/(i+1)!.