A108929 Expansion of (1-x^4-2*x^3)/((x-1)*(x^2+x+1)*(x^2+4*x-1)).

1, 4, 17, 71, 300, 1271, 5383, 22802, 96591, 409165, 1733250, 7342165, 31101909, 131749800, 558101109, 2364154235, 10014718048, 42423026427, 179706823755, 761250321446, 3224708109539, 13660082759601, 57865039147942

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (4, 1, 1, -4, -1).

Maple

seriestolist(series((1-x^4-2*x^3)/((x-1)*(x^2+x+1)*(x^2+4*x-1)), x=0, 25)); -or- -1kbaseksum[A*B] with A = - 'i + 'j - i' + j' - 'kk' - 'ik' - 'jk' - 'ki' - 'kj' and B = + .5'i + .5i'; SumType: default

Mathematica

CoefficientList[Series[(1-x^4-2x^3)/((x-1)(x^2+x+1)(x^2+4x-1)), {x, 0, 30}], x] (* or *) LinearRecurrence[{4, 1, 1, -4, -1}, {1, 4, 17, 71, 300}, 30] (* Harvey P. Dale, Nov 27 2024 *)

Crossrefs

Sequence in context: A188482 A364705 A179606 * A297578 A022031 A255117

Adjacent sequences: A108926 A108927 A108928 * A108930 A108931 A108932

Keyword

easy,nonn

Author

Creighton Dement, Jul 19 2005

Status

approved