%I #14 Jun 14 2019 14:24:09
%S 0,2,-4,-42,1336,-16726,-1194700,153304830,-10698400400,188012481362,
%T 107922523124588,-26275693823306202,3726087789656495272,
%U -203071274271083537926,-64313415452872137435484
%N Expansion of tan(tanh(x))*sin(x).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Tanh[x]]*Sin[x],{x,0,nn}],x] Range[ 0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 14 2019 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Jun 14 2019