|
|
A278301
|
|
Number of permutations of length n in the class of juxtapositions of 321-avoiders with 21-avoiders.
|
|
2
|
|
|
1, 1, 2, 6, 23, 98, 434, 1949, 8803, 39888, 181201, 825201, 3767757, 17249560, 79191480, 364585230, 1683208515, 7792546040, 36174065285, 168367375735, 785637327745, 3674914227120, 17230132657815, 80965662243526, 381275131584373, 1799105397745998
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
a(n) is also the number of permutations of length n in the class of juxtapositions of 231-avoiders with 21-avoiders.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1 - (1-4*x)^(1/2) + x*(-4 + (1-4*x)^(1/2) + ((-1+5*x)^(1/2)) / ((-1+x)^(1/2)))) / (-2*x^2).
|
|
EXAMPLE
|
There are 23 permutations of length 4 which can be expressed as a juxtaposition of a 321-avoider and a 21-avoider. Only 4321 is not expressable this way.
|
|
MATHEMATICA
|
e = ee /. Solve[ee == 1 + x/(1 - x) ee, ee][[1]];
c = cc /. Solve[cc == 1 + x cc^2, cc][[1]];
cb = ccb /. Solve[ccb == 1 + x/(1 - x) ccb^2, ccb][[2]];
b = bb /. Solve[bb == x^2/(1 - x) + x c bb e, bb][[1]];
m = mm /.
Solve[mm ==
x c mm cb + b e x/(1 - x) (cb - 1) + x^2/(1 - x) (cb - 1),
mm][[1]];
f = c + c m cb/(1 - x);
CoefficientList[Series[f, {x, 0, 25}], x]
Rest[CoefficientList[Series[(1 - (1 - 4 x)^(1/2) + x (-4 + (1 - 4 x)^(1/2) + ((-1 + 5 x)^(1/2)) / ((-1 + x)^(1/2))))/ (-2 x^2), {x, 0, 33}], x]] (* Vincenzo Librandi, Nov 18 2016 *)
|
|
CROSSREFS
|
The other two juxtapositions of Catalan and monotone classes are enumerated by A033321, A165538.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|