%I #23 Feb 09 2014 12:56:50
%S 1,0,-28,-448,12112,1368576,6365504,-12034425856,-1083196126976,
%T 198483816038400,67920087885661184,-1384610933181693952,
%U -5947819353252706660352,-1087299291711947739365376
%N Expansion of e.g.f. tan(sinh(x)*cos(x)), odd powers only.
%H Vincenzo Librandi, <a href="/A009685/b009685.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sinh[x]Cos[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jan 18 2014 *)
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Jan 18 2014
%E Clarified definition, _Joerg Arndt_, Feb 09 2014