OFFSET
0,2
LINKS
MATHEMATICA
CoefficientList[Series[(1-x)/(1+2x-2x^2-2x^3), {x, 0, 30}], x] (* or *) LinearRecurrence[{-2, 2, 2}, {1, -3, 8}, 30] (* Harvey P. Dale, Dec 17 2017 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
N. J. A. Sloane, Nov 17 2002
STATUS
approved