login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A302895 Number of permutations of [n] having exactly two alternating descents. 2
2, 7, 36, 182, 1056, 6669, 46348, 350240, 2866632, 25260211, 238550196, 2403846954, 25749417440, 292191829273, 3501634042140, 44194287012404, 585947863072440, 8142408896706495, 118341851934179140, 1795485894869716670, 28386889319060192592 (list; graph; refs; listen; history; text; internal format)
OFFSET

3,1

COMMENTS

Index i is an alternating descent of permutation p if either i is odd and p(i) > p(i+1), or i is even and p(i) < p(i+1).

LINKS

Alois P. Heinz, Table of n, a(n) for n = 3..483

D. Chebikin, Variations on descents and inversions in permutations, The Electronic J. of Combinatorics, 15 (2008), #R132.

FORMULA

a(n) ~ (4 - Pi)^2 * 2^(n + 3/2) * n^(n + 5/2) / (exp(n) * Pi^(n + 5/2)). - Vaclav Kotesovec, Apr 29 2018

E.g.f.: ((4 + (-2 + x)*x - 4*cos(x))*(1 + cos(x)) + (4 + (-6 + x)*x)*sin(x))/(3 + 2*cos(x) - cos(2*x) - 2*(2 + cos(x))*sin(x)). - Vaclav Kotesovec, Apr 30 2018

EXAMPLE

a(3) = 2: 213, 312.

a(4) = 7: 1243, 1342, 2134, 2341, 3124, 4123, 4321.

MAPLE

b:= proc(u, o) option remember; series(`if`(u+o=0, 1,

       add(b(o+j-1, u-j)*x, j=1..u)+

       add(b(o-j, u-1+j),   j=1..o)), x, 4)

    end:

a:= n-> coeff(b(n, 0), x, 3):

seq(a(n), n=3..30);

MATHEMATICA

nmax = 30; Drop[CoefficientList[Series[((4 + (-2 + x)*x - 4*Cos[x])*(1 + Cos[x]) + (4 + (-6 + x)*x)*Sin[x])/(3 + 2*Cos[x] - Cos[2*x] - 2*(2 + Cos[x])*Sin[x]), {x, 0, nmax}], x] * Range[0, nmax]!, 3] (* Vaclav Kotesovec, Apr 30 2018 *)

CROSSREFS

Column k=3 of A145876.

Sequence in context: A111908 A060814 A192816 * A302905 A249691 A129261

Adjacent sequences:  A302892 A302893 A302894 * A302896 A302897 A302898

KEYWORD

nonn

AUTHOR

Alois P. Heinz, Apr 15 2018

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 28 04:30 EST 2022. Contains 350654 sequences. (Running on oeis4.)