A213160 Sequence of coefficients of x in marked mesh pattern generating function Q_{n,132}^(-,0,4,0)(x).

14, 70, 286, 1099, 4124, 14935, 53242, 188684, 667972, 2368095, 8426224, 30130319, 108331818, 391700269, 1424153146, 5205387976, 19120256344, 70552778548, 261426207564, 972390417749, 3629462152664, 13590042842272, 51033678706020, 192151581932541

Offset

5,1

Links

Table of n, a(n) for n=5..28.

S. Kitaev, J. Remmel and M. Tiefenbruck, Marked mesh patterns in 132-avoiding permutations I, arXiv preprint arXiv:1201.6243, 2012

Mathematica

CCC[t]=(1-(1-4*t)^(1/2))/(2*t); NQ4[t, x]=1/(1 - t*x*CCC[t] - t(1 - x)*(1 + t + 2t^2 + 5t^3)); CoefficientList[Coefficient[Simplify[Series[NQ4[t, x], {t, 0, 35}]], x], t] (* Robert Price, Jun 05 2012 *)

Crossrefs

Sequence in context: A212749 A201106 A337641 * A268399 A034554 A246507

Adjacent sequences: A213157 A213158 A213159 * A213161 A213162 A213163

Keyword

nonn

Author

Robert Price, Jun 06 2012

Status

approved