A297054 The coefficients of the product (1-x^2)(1-x^3)(1-x^4)... / (1+x).

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

Offset

1

Links

Table of n, a(n) for n=1..88.

Mathematica

iend = 100;
s = Series[1/(1 + x) Product[(1 - x^i), {i, 2, iend}], {x, 0, iend}];
Print[s]; Print[CoefficientList[s, x]]

Prog

(PARI) first(n) = Vec(prod(i=2, n-1, 1 - x^i)/(1 + x) + O(x^n)) \\ Iain Fox, Dec 24 2017

Crossrefs

Sequence in context: A354108 A181101 A321512 * A359349 A266459 A354199

Adjacent sequences: A297051 A297052 A297053 * A297055 A297056 A297057

Keyword

sign

Author

David S. Newman, Dec 24 2017

Status

approved