|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|