A208150 Expansion of (1 + 2*Product_{i>=1} (1 + x^(8*i - 1)))/(-1 + Product_{i>=1} (1 - x^(8*i - 1))).

-2, 3, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0, 0, 0, 0, -4, 3, 0, 0, 0, 0, 0, 0, -3, -3, 0, 0, 0, 0, 0, -4, 2, 3, 0, 0, 0, 0, 0, -3, -9, -3, 0, 0, 0, 0, -4, 1, 5, 3, 0, 0, 0, 0, 1, -15, -9, -3, 0, 0, 0, -4, 0, 6, 5, 3, 0, 0, 0, 5, -20, -21, -12, -3, 0, 0, -4, -1, 16

Offset

0,1

Links

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

Example

-3/x^7 - 2 + 3*x -3*x^8 - 4*x^15 + 3*x^16 - 3*x^23 - 3*x^24 - 4*x^30 + ...

Mathematica

Table[SeriesCoefficient[
  Series[(1 + 2*Product[1 + x^(8*i - 1), {i, 1, Infinity}])/(-1 +
      Product[(1 - x^(8*i - 1)), {i, 1, Infinity}]), {x, 0, 100}],
  n], {n, 0, 100}]

Crossrefs

Cf. A207944, A080054, A142724.

Sequence in context: A230807 A173012 A083925 * A045830 A078771 A072771

Adjacent sequences: A208147 A208148 A208149 * A208151 A208152 A208153

Keyword

sign,less

Author

Roger L. Bagula, Feb 23 2012

Status

approved