A157126 Expansion of (1-2x-3x^2+x^3-x^5)/(1+4x^3+x^6).

1, -2, -3, -3, 8, 11, 11, -30, -41, -41, 112, 153, 153, -418, -571, -571, 1560, 2131, 2131, -5822, -7953, -7953, 21728, 29681, 29681, -81090, -110771, -110771, 302632, 413403, 413403, -1129438, -1542841, -1542841, 4215120, 5757961, 5757961

Offset: 0

Author

Paul Barry, Feb 23 2009

Keywords

• easy
• sign

Comments

Hankel transform of A157125.

Links

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

Crossrefs

Cf. A048788.

Programs

Mathematica

CoefficientList[Series[(1-2x-3x^2+x^3-x^5)/(1+4x^3+x^6),{x,0,40}],x] (* or *) LinearRecurrence[{0,0,-4,0,0,-1},{1,-2,-3,-3,8,11},40] (* Harvey P. Dale, Jan 16 2013 *)

Formula

a(0)=1, a(1)=-2, a(2)=-3, a(3)=-3, a(4)=8, a(5)=11, a(n)=-4*a(n-3)-a(n-6). - Harvey P. Dale, Jan 16 2013