%I #14 May 15 2021 20:15:27
%S 1,4,12,-128,-5232,-54848,5325504,403442176,558723328,-2994514283520,
%T -295655443772416,17110494845845504,9628494110111469568,
%U 971219320278689300480,-262986198032101769035776
%N Expansion of tan(sin(x))*cosh(x).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[x]]Cosh[x],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, May 15 2021 *)
%K sign
%O 0,2
%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 15 2021