Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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
  • Previous by thread: Question about J/Link
  • Next by thread: Re: different results