|
|
A302903
|
|
Number of permutations of [2n+1] having exactly n alternating descents.
|
|
3
|
|
|
1, 2, 36, 1196, 76840, 7570716, 1085246904, 211595659320, 53984412657360, 17440458896525180, 6960292943873805976, 3362366089440205308072, 1933633403768889597292336, 1305355624659052356741634136, 1022196734801743485304805455920, 919035074839303194470918726496240
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
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
|
|
|
FORMULA
|
a(n) ~ sqrt(3) * 2^(2*n + 2) * n^(2*n + 1) / (sqrt(5) * exp(2*n)). - Vaclav Kotesovec, Apr 29 2018
|
|
EXAMPLE
|
a(1) = 2: 123, 321.
a(2) = 36: 12345, 12543, 13542, 14325, 14532, 15324, 15423, 21354, 21453, 23541, 24315, 24531, 25314, 25413, 31254, 31452, 32145, 32451, 34215, 34521, 35214, 35412, 41253, 41352, 42135, 42351, 43125, 45213, 45312, 51243, 51342, 52134, 52341, 53124, 54123, 54321.
|
|
MAPLE
|
b:= proc(u, o) option remember; expand(`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)))
end:
a:= n-> coeff(b(2*n+1, 0), x, n+1):
seq(a(n), n=0..20);
|
|
MATHEMATICA
|
b[u_, o_] := b[u, o] = Expand[If[u + o == 0, 1,
Sum[b[o + j - 1, u - j]*x, {j, 1, u}] +
Sum[b[o - j, u - 1 + j], {j, 1, o}]]];
a[n_] := Coefficient[b[2n + 1, 0], x, n + 1];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|