|
%I #12 Oct 16 2017 19:54:57
%S 1,1,5,31,145,1181,9661,77155,794081,8132185,86715541,1055208551,
%T 12921555505,166589628661,2320023320525,32814550442731,
%U 486870347843521,7598251948512305,121035455085677221,2008950533339620015,34595064617371963601,609252363677557660621
%N E.g.f.: exp(x + 2*x^2 + 3*x^3).
%H Seiichi Manyama, <a href="/A293716/b293716.txt">Table of n, a(n) for n = 0..533</a>
%F a(n) ~ 3^(2*n/3 - 1/2) * n^(2*n/3) * exp(-76/729 + 19*3^(1/3)*n^(1/3)/81 + 2*3^(2/3)*n^(2/3)/9 - 2*n/3). - _Vaclav Kotesovec_, Oct 15 2017
%t CoefficientList[Series[E^(x+2*x^2+3*x^3), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Oct 15 2017 *)
%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp(x+2*x^2+3*x^3)))
%Y Column k=3 of A293718.
%K nonn
%O 0,3
%A _Seiichi Manyama_, Oct 15 2017
|
