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!)
A302899 Number of permutations of [n] having exactly six alternating descents. 2
272, 3407, 46348, 556952, 6847224, 84889638, 1085246904, 14322115212, 195951082944, 2781436057021, 40985527637668, 626827892111140, 9945795998932920, 163614736611741324, 2788498384849238640, 49195762917367001256, 897689701635240236352, 16927557342294928274187 (list; graph; refs; listen; history; text; internal format)
OFFSET
7,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
D. Chebikin, Variations on descents and inversions in permutations, The Electronic J. of Combinatorics, 15 (2008), #R132.
FORMULA
a(n) ~ (4 - Pi)^6 * 2^(n + 5/2) * n^(n + 13/2) / (6! * Pi^(n + 13/2) * exp(n)). - Vaclav Kotesovec, Apr 29 2018
E.g.f.: (1440*cos(x)^4 + (- x^6 + 6*x^5 - 30*x^4 + 120*x^3 - 360*x^2 + 720*x)*cos(x)^3 + ((- x^6 + 18*x^5 - 150*x^4 + 840*x^3 - 3240*x^2 + 7920*x - 4320)*sin(x) - 29*x^6 + 420*x^5 - 2610*x^4 + 9120*x^3 - 18360*x^2 + 16560*x - 7200)*cos(x)^2 + 28*x*((x^5 - (129/14)*x^4 + (255/7)*x^3 - 90*x^2 + (900/7)*x - 360/7)*sin(x) + 31*x^5*(1/14) - 321*x^4*(1/14) + 645*x^3*(1/7) - 1170*x^2*(1/7) + 900*x*(1/7) - 360/7)*cos(x) + (90*x^6 - 1104*x^5 + 5640*x^4 - 15120*x^3 + 21600*x^2 - 17280*x + 5760)*sin(x) + 90*x^6 - 1056*x^5 + 5160*x^4 - 13680*x^3 + 21600*x^2 - 17280*x + 5760)/(720*cos(x)^4 + (720*sin(x) - 2160)*cos(x)^3 + (2880*sin(x) - 5760)*cos(x)^2 + (- 2880*sin(x) + 2880)*cos(x) - 5760*sin(x) + 5760). - Vaclav Kotesovec, Apr 30 2018
EXAMPLE
a(7) = 272: 2143657, 2143756, 2153647, 2153746, ..., 7561423, 7562314, 7562413, 7563412.
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, 8)
end:
a:= n-> coeff(b(n, 0), x, 7):
seq(a(n), n=7..30);
MATHEMATICA
nmax = 30; Drop[CoefficientList[Series[(1440*Cos[x]^4 + (- x^6 + 6*x^5 - 30*x^4 + 120*x^3 - 360*x^2 + 720*x)*Cos[x]^3 + ((- x^6 + 18*x^5 - 150*x^4 + 840*x^3 - 3240*x^2 + 7920*x - 4320)*Sin[x] - 29*x^6 + 420*x^5 - 2610*x^4 + 9120*x^3 - 18360*x^2 + 16560*x - 7200)*Cos[x]^2 + 28*x*((x^5 - (129/14)*x^4 + (255/7)*x^3 - 90*x^2 + (900/7)*x - 360/7)*Sin[x] + 31*x^5*(1/14) - 321*x^4*(1/14) + 645*x^3*(1/7) - 1170*x^2*(1/7) + 900*x*(1/7) - 360/7)*Cos[x] + (90*x^6 - 1104*x^5 + 5640*x^4 - 15120*x^3 + 21600*x^2 - 17280*x + 5760)*Sin[x] + 90*x^6 - 1056*x^5 + 5160*x^4 - 13680*x^3 + 21600*x^2 - 17280*x + 5760)/(720*Cos[x]^4 + (720*Sin[x] - 2160)*Cos[x]^3 + (2880*Sin[x] - 5760)*Cos[x]^2 + (- 2880*Sin[x] + 2880)*Cos[x] - 5760*Sin[x] + 5760), {x, 0, nmax}], x] * Range[0, nmax]!, 7] (* Vaclav Kotesovec, Apr 30 2018 *)
CROSSREFS
Column k=7 of A145876.
Sequence in context: A317213 A178268 A205345 * A266106 A264077 A305683
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)