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

5, 24, 95, 356, 1259, 4354, 14950, 51312, 176969, 614932, 2155155, 7619844, 27169659, 97639358, 353389474, 1287216756, 4715416601, 17361594524, 64213122743, 238461037744, 888778493004, 3323529910514, 12465333132757, 46880502176400, 176752359115621

Offset

4,1

Links

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

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

Formula

a(n) = Sum_{k=1..n-3} A000108(k) * A000108(n-k). - Colin Defant, Sep 15 2015

Mathematica

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

Crossrefs

Sequence in context: A271458 A301526 A180354 * A268370 A087095 A099653

Adjacent sequences: A212346 A212347 A212348 * A212350 A212351 A212352

Keyword

nonn

Author

N. J. A. Sloane, May 09 2012

Extensions

a(10)-a(35) from Robert Price, Jun 05 2012

Status

approved