login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037256 a(n) = n!*Sum_{i=0..n-1} (n-i)*(-2)^i/(i+1)!. 6
0, 1, 2, 10, 48, 296, 2080, 16752, 151424, 1519744, 16766208, 201685760, 2627316736, 36847260672, 553551644672, 8868624615424, 150943592939520, 2719816264613888, 51724646086475776, 1035359388788391936, 21759010038674358272, 479027478333199482880 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

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

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

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.

FORMULA

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

MAPLE

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

MATHEMATICA

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 *)

PROG

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

CROSSREFS

Cf. A095236, A239888, A239889.

Sequence in context: A166922 A302557 A129118 * A270664 A330543 A052576

Adjacent sequences:  A037253 A037254 A037255 * A037257 A037258 A037259

KEYWORD

nonn

AUTHOR

N. J. A. Sloane

EXTENSIONS

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 24 01:05 EST 2020. Contains 331178 sequences. (Running on oeis4.)