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

Author

Roger L. Bagula, Feb 23 2012

Keywords

• sign
• less

Examples

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

Crossrefs

Cf. A207944, A080054, A142724.

Programs

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}]