login
Expansion of e.g.f.: exp(sinh(x)*cos(x)).
1

%I #20 Apr 01 2017 11:59:48

%S 1,1,1,-1,-7,-23,-23,135,1297,4785,6129,-102353,-894903,-4499623,

%T -829671,167774711,1879275169,9259741409,-1886150559,-697193437985,

%U -7580265762535,-45391655836087,85001467923145,4778091975791591,61409100961369265,356972130348630673

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

%H Alois P. Heinz, <a href="/A009228/b009228.txt">Table of n, a(n) for n = 0..200</a>

%p a:= n-> n! *coeff(series(exp(sinh(x)*cos(x)), x, n+1), x, n):

%p seq (a(n), n=0..30); # _Alois P. Heinz_, Aug 22 2012

%t With[{nn=30},CoefficientList[Series[Exp[Sinh[x]*Cos[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Aug 22 2012 *)

%K sign,easy

%O 0,5

%A _R. H. Hardin_

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

%E Definition clarified by _Harvey P. Dale_, Aug 22 2012