%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