[go: up one dir, main page]

login
A098984
Numerators in series expansion of log( Sum_{m=-oo,oo} q^(m^2) ).
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
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
KEYWORD
sign,frac
AUTHOR
N. J. A. Sloane, Oct 24 2004
STATUS
approved