OFFSET
0,4
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
FORMULA
a(n) ~ exp(Pi^2*sqrt(n/2)/3 + sqrt(3) * (sqrt(2)-1) * Zeta(1/2) * Zeta(3/2) * n^(1/4) / (2^(3/4) * sqrt(Pi)) - 9*((sqrt(2)-1) * Zeta(1/2) * Zeta(3/2))^2 / (16*Pi^3)) * sqrt(Pi) / (2^(3/2) * sqrt(3) * n^(3/4)).
MATHEMATICA
nmax = 100; CoefficientList[Series[Product[(1 + x^(j*k^2)), {k, 1, Floor[Sqrt[nmax]+1]}, {j, 1, Floor[nmax/k^2] + 1}], {x, 0, nmax}], x]
PROG
(PARI) my(N=66, x='x+O('x^N)); Vec(prod(k=1, sqrt(N), eta(x^(2*k^2))/eta(x^(k^2)))) \\ Seiichi Manyama, Apr 29 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Jan 03 2017
STATUS
approved