|
%I #11 Feb 02 2019 05:30:58
%S 1,2,11,92,1080,16490,311238,7007796,183431836,5474465390,
%T 183502419505,6825981504602,279041903645153,12434720809043056,
%U 599929817745490600,31155278025923406979,1732781419647450834768,102761486514549541577999,6473124665688520200808139
%N a(n) = [x^n] Product_{k=1..n} 1/((1 - x)^k * (1 - x^k)).
%H Vaclav Kotesovec, <a href="/A292424/b292424.txt">Table of n, a(n) for n = 0..368</a>
%F a(n) ~ exp(n+2) * n^(n-1/2) / (sqrt(Pi) * 2^(n+1/2)).
%t Table[SeriesCoefficient[Product[1/((1-x)^k * (1-x^k)), {k, 1, n}], {x, 0, n}], {n, 0, 20}]
%t Table[SeriesCoefficient[Product[1/(1-x^k), {k, 1, n}] / (1-x)^(n*(n+1)/2), {x, 0, n}], {n, 0, 20}]
%o (PARI) {a(n)= polcoef(prod(k=1, n, 1/((1-x)^k*(1-x^k) +x*O(x^n))), n)};
%o for(n=0,20, print1(a(n), ", ")) \\ _G. C. Greubel_, Feb 02 2019
%Y Cf. A292613.
%K nonn
%O 0,2
%A _Vaclav Kotesovec_, Sep 20 2017
|
