A164118 Expansion of (1 - x^2) * (1 - x^4) * (1 - x^5) / ((1 - x) * (1 - x^10)) in powers of x.

1, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1, -2, -1, 0, 0, 1, 2, 1, 0, 0, -1

Offset

0,6

Links

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

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

Formula

Euler transform of length 10 sequence [ 1, -1, 0, -1, -1, 0, 0, 0, 0, 1].

a(-n) = a(n). a(n + 5) = -a(n) unless n=0 or n=-5.

G.f.: (1 - x^4) / (1 - x + x^2 - x^3 + x^4).

Mathematica

CoefficientList[Series[(1 - x^4) / (1 - x + x^2 - x^3 + x^4), {x, 0, 50}], x] (* G. C. Greubel, Sep 12 2017 *)

Prog

(PARI) {a(n) = -(n==0) + [2, 1, 0, 0, -1, -2, -1, 0, 0, 1][n%10 + 1]}

Crossrefs

A164116(n) = (-1)^n * a(n). Convolution inverse of A164117.

Sequence in context: A059048 A257181 A164116 * A180981 A284317 A281243

Adjacent sequences: A164115 A164116 A164117 * A164119 A164120 A164121

Keyword

sign,easy

Author

Michael Somos, Aug 10 2009

Status

approved