%I #23 Sep 03 2022 22:53:00
%S 1,2,4,7,8,-7,-74,-209,-40,2441,10954,6667,-185524,-1041739,-510530,
%T 26716831,158378768,-47260303,-6226501934,-34323431789,71521515284,
%U 2087815263725,9437342779558,-55046954388953,-923175950185960,-2736047549718871,43387645616657338
%N Expansion of e.g.f.: exp(x + sin(x)).
%F E.g.f.: exp(x + sin(x)).
%F a(0) = 1; a(n) = a(n-1) + Sum_{k=0..floor((n-1)/2)} (-1)^k * binomial(n-1,2*k) * a(n-2*k-1). - _Ilya Gutkovskiy_, Apr 10 2022
%t With[{nn=30},CoefficientList[Series[Exp[x+Sin[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Aug 23 2014 *)
%o (PARI) x='x+O('x^66); Vec(serlaplace(exp(x + sin(x)))) /* _Joerg Arndt_, Sep 01 2012 */
%Y Cf. A002017, A009209, A009283.
%K sign,easy
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Name corrected by _Arkadiusz Wesolowski_, Sep 01 2012
|