OFFSET
0,8
FORMULA
Euler transform of period 3 sequence [ 1, 0, -2, ...].
EXAMPLE
1 + q + q^2 - q^3 - q^6 - 2*q^7 - q^8 + q^9 - q^10 - 2*q^11 - q^14 + ...
PROG
(PARI) {a(n) = if( n<0, 0, polcoeff( prod(k=1, n, (1 - x^k)^([2, -1, 0][k%3 + 1]), 1 + x * O(x^n)), n))}
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Aug 04 2008
STATUS
approved