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

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

%S 0,1,-1,4,-1,6,-4,8,-1,13,-6,12,-4,14,-8,8,-1,18,-13,20,-6,32,-12,24,

%T -4,31,-14,40,-8,30,-8,32,-1,16,-18,48,-13,38,-20,56,-6,42,-32,44,-12,

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

%N Numerators (divided by 2) 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]]/2 (* _L. Edson Jeffery_, Jul 14 2014 *)

%Y Cf. A000122, A098985, A098984.

%K sign,frac

%O 0,4

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