A098984 Numerators in series expansion of log( Sum_{m=-oo,oo} q^(m^2) ).

0, 2, -2, 8, -2, 12, -8, 16, -2, 26, -12, 24, -8, 28, -16, 16, -2, 36, -26, 40, -12, 64, -24, 48, -8, 62, -28, 80, -16, 60, -16, 64, -2, 32, -36, 96, -26, 76, -40, 112, -12, 84, -64, 88, -24, 52, -48, 96, -8, 114, -62, 48, -28, 108, -80, 144, -16, 160, -60, 120, -16, 124, -64, 208, -2, 168, -32, 136, -36, 64, -96, 144

Offset

0,2

Links

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

Example

2*q-2*q^2+8/3*q^3-2*q^4+12/5*q^5-8/3*q^6+16/7*q^7-2*q^8+26/9*q^9-...

Mathematica

Numerator[CoefficientList[Series[Log[Sum[q^m^2, {m, -Infinity, Infinity}]], {q, 0, 77}], q]]  (* L. Edson Jeffery, Jul 14 2014 *)

Crossrefs

Cf. A000122, A098985, A098986.

Sequence in context: A273168 A098818 A092694 * A088560 A222821 A363418

Adjacent sequences: A098981 A098982 A098983 * A098985 A098986 A098987

Keyword

sign,frac

Author

N. J. A. Sloane, Oct 24 2004

Status

approved