OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..368
FORMULA
a(n) ~ exp(n+2) * n^(n-1/2) / (sqrt(Pi) * 2^(n+1/2)).
MATHEMATICA
Table[SeriesCoefficient[Product[1/((1-x)^k * (1-x^k)), {k, 1, n}], {x, 0, n}], {n, 0, 20}]
Table[SeriesCoefficient[Product[1/(1-x^k), {k, 1, n}] / (1-x)^(n*(n+1)/2), {x, 0, n}], {n, 0, 20}]
PROG
(PARI) {a(n)= polcoef(prod(k=1, n, 1/((1-x)^k*(1-x^k) +x*O(x^n))), n)};
for(n=0, 20, print1(a(n), ", ")) \\ G. C. Greubel, Feb 02 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Sep 20 2017
STATUS
approved