%I #21 May 21 2019 10:18:46
%S 0,1,2,2,4,16,38,104,456,1600,6154,29952,131660,644736,3516334,
%T 18383616,106736272,645554176,3902982930,25645936640,170222268308,
%U 1160636121088,8352824699446,60217271582720,450765801976408
%N Expansion of e.g.f. sin(x)*exp(sinh(x)).
%C First negative term is a(35). - _Olivier Gérard_, Mar 15 1997
%H Andrew Howroyd, <a href="/A009542/b009542.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=30},CoefficientList[Series[Sin[x]*Exp[Sinh[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, May 21 2019 *)
%o (PARI) my(x='x+O('x^40)); Vec(serlaplace(sin(x)*exp(sinh(x)))) \\ _Michel Marcus_, Apr 02 2017
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, May 21 2019