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

0, 1, 1, 4, 6, 18, 24, 67, 85, 231, 287, 771, 949, 2536, 3108, 8285, 10133, 26980, 32966, 87726, 107140, 285035, 348037, 925799, 1130311, 3006511, 3670473, 9762796, 11918536, 31700713, 38700153, 102933300, 125660022, 334225018, 408017728

Offset

0,4

Links

Table of n, a(n) for n=0..34.

Index entries for linear recurrences with constant coefficients, signature (0,5,0,-6,0,1).

Mathematica

CoefficientList[Series[-x(1+x-x^2+x^3+4x^4)/((x^3-2x^2-x+1)(x^3+ 2x^2- x-1)), {x, 0, 40}], x] (* or *) LinearRecurrence[{0, 5, 0, -6, 0, 1}, {0, 1, 1, 4, 6, 18}, 40] (* Harvey P. Dale, Feb 05 2012 *)

Crossrefs

Sequence in context: A109310 A219190 A337617 * A064217 A026623 A026689

Adjacent sequences: A120388 A120389 A120390 * A120392 A120393 A120394

Keyword

nonn,easy

Author

Roger L. Bagula and Gary W. Adamson, Jun 30 2006

Status

approved