login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A086854 Number of permutations of length n with exactly 3 rising or falling successions. 6
0, 0, 0, 0, 2, 16, 120, 888, 7198, 64968, 650644, 7165200, 86059242, 1119549472, 15682257872, 235336043976, 3766695159030, 64052134910168, 1153211148654348, 21915344800505888, 438380075974889154, 9207290871553008240, 202585136417883766472, 4659950328485470292632 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Permutations of 12...n such that exactly 3 of the following occur: 12, 23, ..., (n-1)n, 21, 32, ..., n(n-1).

REFERENCES

F. N. David, M. G. Kendall and D. E. Barton, Symmetric Function and Allied Tables, Cambridge, 1966, p. 263.

J. Riordan, A recurrence for permutations without rising or falling successions. Ann. Math. Statist. 36 (1965), 708-710.

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..200

FORMULA

Coefficient of t^3 in S[n](t) defined in A002464.

Recurrence (for n>4): (n-4)*(2*n^6 - 52*n^5 + 557*n^4 - 3136*n^3 + 9740*n^2 - 15727*n + 10242)*a(n) = (n-4)*(2*n^7 - 50*n^6 + 511*n^5 - 2693*n^4 + 7450*n^3 - 9041*n^2 - 157*n + 6666)*a(n-1) - (2*n^8 - 58*n^7 + 735*n^6 - 5289*n^5 + 23430*n^4 - 64575*n^3 + 106105*n^2 - 92312*n + 30900)*a(n-2) - (2*n^7 - 54*n^6 + 615*n^5 - 3795*n^4 + 13554*n^3 - 27681*n^2 + 29473*n - 12330)*(n-2)*a(n-3) + (2*n^6 - 40*n^5 + 327*n^4 - 1388*n^3 + 3184*n^2 - 3675*n + 1626)*(n-2)^2*a(n-4). - Vaclav Kotesovec, Aug 11 2013

a(n) ~ 4/3*exp(-2) * n! = n! * 0.45231366335478... - Vaclav Kotesovec, Aug 11 2013

MAPLE

S:= proc(n) option remember; `if`(n<4, [1, 1, 2*t, 4*t+2*t^2]

       [n+1], expand((n+1-t)*S(n-1) -(1-t)*(n-2+3*t)*S(n-2)

       -(1-t)^2*(n-5+t)*S(n-3) +(1-t)^3*(n-3)*S(n-4)))

    end:

a:= n-> coeff(S(n), t, 3):

seq(a(n), n=0..25);  # Alois P. Heinz, Jan 11 2013

MATHEMATICA

S[n_] := S[n] = If[n < 4, {1, 1, 2*t, 4*t+2*t^2}[[n+1]], Expand[(n+1-t)*S[n-1] - (1-t)*(n-2+3*t)*S[n-2] - (1-t)^2*(n-5+t)*S[n-3] + (1-t)^3*(n-3)*S[n-4]]]; a[n_] := Coefficient[S[n], t, 3]; Table[a[n], {n, 0, 25}] (* Jean-Fran├žois Alcover, Apr 09 2014, after Alois P. Heinz *)

CROSSREFS

Cf. A002464, A000130, A000349, A001267, A086852, A086853. A diagonal of A001100.

Sequence in context: A136782 A112710 A046105 * A258683 A026129 A026158

Adjacent sequences:  A086851 A086852 A086853 * A086855 A086856 A086857

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Aug 19 2003

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 18 13:58 EST 2019. Contains 319271 sequences. (Running on oeis4.)