|
|
A174195
|
|
Number of permutations of 1..n that almost avoid 231.
|
|
2
|
|
|
1, 1, 2, 6, 24, 111, 531, 2519, 11726, 53547, 240448, 1064608, 4658952, 20192022, 86807865, 370665585, 1573606410, 6647552115, 27962334180, 117185243340, 489508952160, 2038937744610, 8471179017990, 35115582053214, 145269385076124, 599866065025406, 2472955722033776, 10179494703130704, 41844811399520752, 171796056971896588
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1-5*x-6*x^2 + 45*x^3-24*x^4-(1 + x-4*x^2 + x^3)*(1-4*x)^(3/2))/(-2*x^2*(1-4*x)^(3/2)).
Conjecture: 2*(n+2)*(2013*n^2-10435*n+41550)*a(n) +(4026*n^3 -128025*n^2 +34955*n+59010)*a(n-1) -2 *(2*n-5)*(20130*n^2 -110855*n +93819) *a(n-2)=0. - R. J. Mathar, Jun 14 2016
|
|
MATHEMATICA
|
CoefficientList[Series[(1 - 5*x - 6*x^2 + 45*x^3 - 24*x^4 - (1 + x - 4*x^2 + x^3)*(1 - 4*x)^(3/2))/(-2*x^2*(1 - 4*x)^(3/2)), {x, 0, 50}], x] (* G. C. Greubel, Mar 22 2017 *)
|
|
PROG
|
(PARI) x='x+O('x^50); Vec((1 - 5*x - 6*x^2 + 45*x^3 - 24*x^4 - (1 + x - 4*x^2 + x^3)*(1 - 4*x)^(3/2))/(-2*x^2*(1 - 4*x)^(3/2))) \\ G. C. Greubel, Mar 22 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|