

A098985


Denominators in series expansion of log( Sum_{m=oo,oo} q^(m^2) ).


2



1, 1, 1, 3, 1, 5, 3, 7, 1, 9, 5, 11, 3, 13, 7, 5, 1, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 5, 31, 1, 11, 17, 35, 9, 37, 19, 39, 5, 41, 21, 43, 11, 15, 23, 47, 3, 49, 25, 17, 13, 53, 27, 55, 7, 57, 29, 59, 5, 61, 31, 63, 1, 65, 11, 67, 17, 23, 35, 71, 9, 73, 37, 75, 19, 77, 39, 79
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,4


LINKS

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


EXAMPLE

2*q2*q^2+8/3*q^32*q^4+12/5*q^58/3*q^6+16/7*q^72*q^8+26/9*q^9...


MATHEMATICA

Denominator[CoefficientList[Series[Log[Sum[q^m^2, {m, Infinity, Infinity}]], {q, 0, 79}], q]] (* L. Edson Jeffery, Jul 14 2014 *)


CROSSREFS

Cf. A000122, A098984, A098986.
Sequence in context: A145799 A244568 A325401 * A072963 A161955 A276234
Adjacent sequences: A098982 A098983 A098984 * A098986 A098987 A098988


KEYWORD

nonn,frac


AUTHOR

N. J. A. Sloane, Oct 24 2004


STATUS

approved



