%I #11 Nov 15 2020 15:38:40
%S 1,1,5,31,241,1661,16861,181315,2091041,25320601,354057301,5149373351,
%T 78917379025,1281478466581,22335899616941,403305062965771,
%U 7612564457632321,150561914023428785,3113594618276542501,66512360356769464111,1474726318816689523121
%N E.g.f.: exp(x + 2*x^2 + 3*x^3 + 4*x^4).
%H Seiichi Manyama, <a href="/A293717/b293717.txt">Table of n, a(n) for n = 0..491</a>
%t With[{nn=20},CoefficientList[Series[Exp[x+2x^2+3x^3+4x^4],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Nov 15 2020 *)
%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp(x+2*x^2+3*x^3+4*x^4)))
%Y Column k=4 of A293718.
%K nonn
%O 0,3
%A _Seiichi Manyama_, Oct 15 2017
|