|
|
A264460
|
|
Number of permutations of [n] with exactly one occurrence of the generalized pattern 23-1.
|
|
2
|
|
|
1, 6, 32, 171, 944, 5444, 32919, 208816, 1388240, 9657929, 70187054, 531857288, 4194927585, 34379859346, 292303350268, 2574284790795, 23450837821836, 220681535036288, 2142618638738279, 21438586249394500, 220827871704427308, 2339281577294955745
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 1: 231.
a(4) = 6: 1342, 2314, 2413, 2431, 3241, 4231.
|
|
MAPLE
|
b:= proc(u, o) option remember; `if`(u+o=0, 1, add(
b(u-j, o+j-1), j=1..u) +add(convert(series(
b(u+j-1, o-j)*x^u, x, 2), polynom), j=1..o))
end:
a:= n-> coeff(b(n, 0), x, 1):
seq(a(n), n=3..25);
|
|
MATHEMATICA
|
b[u_, o_] := b[u, o] = If[u+o == 0, 1, Sum[b[u-j, o+j-1], {j, 1, u}] + Sum[Series[b[u+j-1, o-j] x^u, {x, 0, 2}] // Normal, {j, 1, o}]];
a[n_] := Coefficient[b[n, 0], x, 1];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|