LINKS
Vaclav Kotesovec, <a href="/A332578/b332578_1.txt">Table of n, a(n) for n = 0..3000</a> (terms 0..1000 from Andrew Howroyd)
Vaclav Kotesovec, <a href="/A332578/b332578_1.txt">Table of n, a(n) for n = 0..3000</a> (terms 0..1000 from Andrew Howroyd)
editing
approved
Andrew Howroyd, Vaclav Kotesovec, <a href="/A332578/b332578_1.txt">Table of n, a(n) for n = 0..3000</a> (terms 0..1000</a> from Andrew Howroyd)
a(n) ~ Pi * exp(2*Pi*sqrt(n/3)) / (4 * 3^(5/4) * n^(7/4)). - Vaclav Kotesovec, Mar 01 2020
approved
editing
editing
approved
nmax = 50; CoefficientList[Series[1 + Sum[x^j*(1 - x^j)/Product[1 - x^k, {k, j, nmax - j}]^2, {j, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 01 2020 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
G.f.: 1 + Sum_{j>0} x^j/((1 - x^j)*(Product_{k>j} 1 - x^k)^2). - Andrew Howroyd, Mar 01 2020