A009590 - OEIS

%I #15 Jan 31 2018 03:17:33

%S 0,1,2,3,4,-3,-42,-105,8,1081,5354,5643,-99956,-547467,22974,12925983,

%T 72550928,21466225,-3076799278,-19155660141,44239291156,1094661097965,

%U 4012843624614,-26420430767577,-426360266016232,-1642571602653527

%N Expansion of e.g.f. sinh(sin(x))*exp(x).

%H G. C. Greubel, <a href="/A009590/b009590.txt">Table of n, a(n) for n = 0..450</a>

%t With[{nmax = 50}, CoefficientList[Series[Sinh[Sin[x]]*Exp[x], {x, 0, nmax}], x]*Range[0, nmax]!] (* _G. C. Greubel_, Jan 30 2018 *)

%o (PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sinh(sin(x))*exp(x)))) \\ _G. C. Greubel_, Jan 30 2018

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997