|
|
A219752
|
|
Expansion of 2*x^4*(1-2*x+x^4)/((1+x)*(1-2*x)^2*(1-x-x^2)).
|
|
3
|
|
|
0, 0, 0, 0, 2, 4, 12, 26, 62, 136, 302, 654, 1412, 3018, 6422, 13592, 28662, 60230, 126212, 263810, 550222, 1145352, 2380062, 4938078, 10230852, 21169114, 43749862, 90317816, 186263462, 383769046, 790000452, 1624890194, 3339501662, 6858353128, 14075255822
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 2*x^4*(1-2*x+x^4)/((1+x)*(1-2*x)^2*(1-x-x^2)).
|
|
MATHEMATICA
|
CoefficientList[Series[2 x^4 (1 - 2 x + x^4)/((1 + x) (1 - 2 x)^2 (1 - x - x^2)), {x, 0, 34}], x] (* Bruno Berselli, Nov 30 2012 *)
LinearRecurrence[{4, -2, -7, 4, 4}, {0, 0, 0, 0, 2, 4, 12, 26, 62}, 40] (* Harvey P. Dale, Mar 09 2023 *)
|
|
PROG
|
(Maxima) makelist(coeff(taylor(2*x^4*(1-2*x+x^4)/((1+x)*(1-2*x)^2*(1-x-x^2)), x, 0, n), x, n), n, 0, 34); /* Bruno Berselli, Nov 29 2012 */
(Magma) I:=[0, 0, 0, 0, 2, 4, 12, 26, 62]; [n le 9 select I[n] else 4*Self(n-1) - 2*Self(n-2) - 7*Self(n-3) + 4*Self(n-4) + 4*Self(n-5): n in [1..40]]; // Vincenzo Librandi, Dec 14 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|