different results

• To: mathgroup at smc.vnet.net
• Subject: [mg125304] different results
• From: Roger Bagula <roger.bagula at gmail.com>
• Date: Mon, 5 Mar 2012 02:42:16 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```Two versions of the code:
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}]

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

Discussion at:https://oeis.org/draft/A208150
I get as I submitted:
DATA    -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

An OEIS editor gets:
[-3, 0, 0, 0, 0, 0, 0, -2, 3, 0, 0, 0, 0, 0, 0, -3, 0, 0, 0, 0, 0, 0,
-4, 3, 0, 0, 0, ...]
Roger Bagula

```

• Prev by Date: Re: Command Completion
• Next by Date: Plotting a simple line at a weibull ProbabilityScalePlot