|
|
A109544
|
|
Expansion of (1 + x - x^3 - 2*x^4)/(1 - x^2 - x^3 - x^4 - x^5).
|
|
8
|
|
|
1, 1, 1, 1, 1, 4, 4, 7, 10, 16, 25, 37, 58, 88, 136, 208, 319, 490, 751, 1153, 1768, 2713, 4162, 6385, 9796, 15028, 23056, 35371, 54265, 83251, 127720, 195943, 300607, 461179, 707521, 1085449, 1665250, 2554756, 3919399, 6012976, 9224854, 14152381
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
FORMULA
|
a(n) = a(n-2) + a(n-3) + a(n-4) + a(n-5).
|
|
MATHEMATICA
|
LinearRecurrence[{0, 1, 1, 1, 1}, {1, 1, 1, 1, 1}, 50]
CoefficientList[Series[(1+x-x^3-2x^4)/(1-x^2-x^3-x^4-x^5), {x, 0, 50}], x] (* Harvey P. Dale, Oct 24 2021 *)
|
|
PROG
|
(Maxima) makelist(ratcoef(taylor((1 + x - x^3 - 2*x^4)/(1 - x^2 - x^3 - x^4 - x^5), x, 0, n), x, n), n, 0, 50); /* Franck Maminirina Ramaharo, Oct 31 2018 */
(PARI) x='x+O('x^50); Vec((1+x-x^3-2*x^4)/(1-x^2-x^3-x^4-x^5)) \\ G. C. Greubel, Nov 03 2018
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1+x-x^3-2*x^4)/(1-x^2-x^3-x^4-x^5))); // G. C. Greubel, Nov 03 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|