A285047 Expansion of Product_{k>=1} 1/(1-x^(k^2))^k.

1, 1, 1, 1, 3, 3, 3, 3, 6, 9, 9, 9, 13, 19, 19, 19, 28, 37, 43, 43, 57, 69, 81, 81, 100, 132, 150, 160, 184, 236, 260, 280, 319, 391, 460, 490, 565, 657, 771, 811, 922, 1084, 1243, 1363, 1510, 1781, 1985, 2185, 2388, 2775, 3159, 3439, 3832, 4335, 4963, 5323

Offset

0,5

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Formula

log(a(n)) ~ Pi*sqrt(n/3).

Mathematica

nmax=100; CoefficientList[Series[Product[1/(1-x^(k^2))^k, {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A000219, A001156, A023871, A266941, A281790.

Sequence in context: A255131 A280453 A289903 * A263137 A320846 A277515

Adjacent sequences: A285044 A285045 A285046 * A285048 A285049 A285050

Keyword

nonn

Author

Vaclav Kotesovec, Apr 15 2017

Status

approved