Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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

• Follow-Ups:
  • Re: different results
    • From: Bob Hanlon <hanlonr357@gmail.com>