|
%I #11 Aug 28 2019 10:23:45
%S 1,2,9,43,206,999,4915,24372,121698,611244,3085612,15645347,79639602,
%T 406809249,2084567381,10712007629,55187254157,284981396231,
%U 1474729519719,7646180479889,39713643612380,206600871071930,1076372569004514,5615363541987786,29331204404385053
%N Convolution of A270913 and A008485.
%H Vaclav Kotesovec, <a href="/A309986/b309986.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) ~ c * d^n / sqrt(n), where d = A270915 = 5.352701333486642687... and c = 0.446705640528056029457240607298917821281915554...
%t A270913[n_] := SeriesCoefficient[Product[(1 + x^k)^n, {k, 1, n}], {x, 0, n}];
%t A008485[n_] := SeriesCoefficient[Product[1/(1 - x^k)^n, {k, 1, n}], {x, 0, n}];
%t Table[Sum[A008485[k]*A270913[n-k], {k, 0, n}], {n, 0, 20}]
%Y Cf. A008485, A270913, A270919, A327214, A327215.
%K nonn
%O 0,2
%A _Vaclav Kotesovec_, Aug 26 2019
|
