|
| |
|
|
A219758
|
|
Expansion of x^4*(2-6*x+5*x^2+2*x^3-4*x^4)/((1-x)^2*(1-2*x)^5).
|
|
2
|
|
|
|
0, 0, 0, 0, 2, 18, 99, 432, 1641, 5674, 18315, 56076, 164621, 466958, 1287183, 3463184, 9125905, 23617554, 60162067, 151126036, 374931477, 919863318, 2234253335, 5377622040, 12836667417, 30410801178, 71546437659, 167252066332, 388677763101, 898319253534
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,5
|
|
|
LINKS
|
|
|
|
FORMULA
|
G.f.: x^4*(2-6*x+5*x^2+2*x^3-4*x^4)/((1-x)^2*(1-2*x)^5).
a(n) = 2^(n-7)*(n^4-2*n^3-25*n^2+194*n-576)/3 +n+1 with n>1, a(0)=a(1)=0. [Bruno Berselli, Nov 29 2012]
|
|
|
MATHEMATICA
|
CoefficientList[Series[x^4 (2 - 6 x + 5 x^2 + 2 x^3 - 4 x^4)/((1 - x)^2 (1 - 2 x)^5), {x, 0, 29}], x] (* Bruno Berselli, Nov 30 2012 *)
LinearRecurrence[{12, -61, 170, -280, 272, -144, 32}, {0, 0, 0, 0, 2, 18, 99, 432, 1641}, 30] (* Harvey P. Dale, Jul 07 2017 *)
|
|
|
PROG
|
(Maxima) makelist(coeff(taylor(x^4*(2-6*x+5*x^2+2*x^3-4*x^4)/((1-x)^2*(1-2*x)^5), x, 0, n), x, n), n, 0, 29); /* Bruno Berselli, Nov 29 2012 */
(Magma) I:=[0, 0, 0, 0, 2, 18, 99, 432, 1641, 5674]; [n le 10 select I[n] else 12*Self(n-1) - 61*Self(n-2) + 170*Self(n-3) - 280*Self(n-4) + 272*Self(n-5) - 144*Self(n-6) + 32*Self(n-7): n in [1..30]]; // Vincenzo Librandi, Dec 14 2012
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
