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

0, 1, -1, 4, -1, 6, -4, 8, -1, 13, -6, 12, -4, 14, -8, 8, -1, 18, -13, 20, -6, 32, -12, 24, -4, 31, -14, 40, -8, 30, -8, 32, -1, 16, -18, 48, -13, 38, -20, 56, -6, 42, -32, 44, -12, 26, -24, 48, -4, 57, -31, 24, -14, 54, -40, 72, -8, 80, -30, 60, -8, 62, -32, 104, -1, 84, -16, 68, -18, 32, -48, 72, -13, 74, -38, 124, -20, 96

Offset

0,4

Links

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

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]]/2 (* L. Edson Jeffery, Jul 14 2014 *)

Crossrefs

Cf. A000122, A098985, A098984.

Sequence in context: A192066 A347385 A336113 * A000593 A115607 A318876

Adjacent sequences: A098983 A098984 A098985 * A098987 A098988 A098989

Keyword

sign,frac

Author

N. J. A. Sloane, Oct 24 2004

Status

approved