The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A213163 Sequence of coefficients of x in marked mesh pattern generating function Q_{n,132}^(3,0,-,0)(x). 1
 1, 7, 32, 122, 422, 1376, 4315, 13165, 39360, 115860, 336876, 969792, 2768917, 7851187, 22130912, 62066126, 173294930, 481976480, 1335880495, 3691245145, 10171349376, 27957706152, 76672984152, 209839988352, 573211991977, 1563112278751, 4255708706720 (list; graph; refs; listen; history; text; internal format)
 OFFSET 4,2 LINKS Vincenzo Librandi, Table of n, a(n) for n = 4..1000 S. Kitaev, J. Remmel and M. Tiefenbruck, Marked mesh patterns in 132-avoiding permutations I, arXiv preprint arXiv:1201.6243, 2012 Index entries for linear recurrences with constant coefficients, signature (7,-17,17,-7,1). FORMULA Contribution from Vaclav Kotesovec, Nov 25 2012: (Start) a(n) = (7*n+6)*F(2*n)/5 - (4*n+5)*F(2*n+1)/5 + 1, where F is Fibonacci number (A000045). Recurrence: a(n) = 7*a(n-1) - 17*a(n-2) + 17*a(n-3) - 7*a(n-4) + a(n-5). G.f.: x^4/(1-7*x+17*x^2-17*x^3+7*x^4-x^5). (End) MATHEMATICA CCC[t] = (1 - (1 - 4*t)^(1/2))/(2*t); NQ0[t, x] = ((1 + t - t*x) - ((1 + t - t*x)^2 - 4*t)^(1/2))/(2*t); NQ1[t, x] = 1/(1 - t*NQ0[t, x]); NQ2[t, x] = 1/(1 - t*NQ1[t, x]); NQ3[t, x] = 1/(1 - t*NQ2[t, x]); CoefficientList[Coefficient[Simplify[Series[NQ3[t, x], {t, 0, 20}]], x], t] (* Robert Price, Jun 06 2012 *) CoefficientList[Series[1/(1 - 7*x + 17*x^2 - 17*x^3 + 7*x^4 - x^5), {x, 0, 50}], x] (* Vincenzo Librandi, Nov 25 2012 *) PROG (MAGMA) I:=[1, 7, 32, 122, 422]; [n le 5 select I[n] else 7*Self(n-1)-17*Self(n-2)+17*Self(n-3)-7*Self(n-4)+Self(n-5): n in [1..30]]; // Vincenzo Librandi, Nov 25 2012 CROSSREFS Sequence in context: A140289 A133107 A178851 * A249999 A034360 A268745 Adjacent sequences:  A213160 A213161 A213162 * A213164 A213165 A213166 KEYWORD nonn,easy AUTHOR Robert Price, Jun 06 2012 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 15 23:34 EST 2021. Contains 340195 sequences. (Running on oeis4.)