login
Expansion of e.g.f. sin(x)*exp(sinh(x)).
2

%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