%I #7 Jul 15 2014 03:30:47

%S 0,2,-2,8,-2,12,-8,16,-2,26,-12,24,-8,28,-16,16,-2,36,-26,40,-12,64,

%T -24,48,-8,62,-28,80,-16,60,-16,64,-2,32,-36,96,-26,76,-40,112,-12,84,

%U -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

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

%e 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-...

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

%Y Cf. A000122, A098985, A098986.

%K sign,frac

%O 0,2

%A _N. J. A. Sloane_, Oct 24 2004