OFFSET
1,3
FORMULA
G.f.: Sum_{k>1} (-1)^k * floor((2*k)/3) * x^((k^2 - k)/2).
EXAMPLE
G.f. = x - 2*x^3 + 2*x^6 - 3*x^10 + 4*x^15 - 4*x^21 + 5*x^28 - 6*x^36 + 6*x^45 - ...
G.f. = q^9 - 2*q^25 + 2*q^49 - 3*q^81 + 4*q^121 - 4*q^169 + 5*q^225 - 6*q^289 + ...
MATHEMATICA
a[ n_] := SeriesCoefficient[ (QPochhammer[ x^3] - QPochhammer[ x]^3) / 3, {x, 0, n}]; (* Michael Somos, Apr 26 2015 *)
a[ n_] := Which[ n < 0, 0, EvenQ[ Length @ Divisors [8 n + 1]], 0, True, With[ {k = Sqrt[8 n + 1] + 1}, Quotient[k, 3] (-1)^Quotient[k, 2]]]; (* Michael Somos, Apr 26 2015 *)
PROG
(PARI) {a(n) = my(A); if( n<0, 0, A = x * O(x^n); 1/3 * polcoeff( eta(x^3 + A) - eta(x + A)^3, n))};
(PARI) {a(n) = if( n<0, 0, if( issquare(8*n + 1, &n), ((n+1) \ 3) * (-1)^((n+1) / 2)))};
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Jun 19 2005
STATUS
approved