|
%I #14 Apr 02 2017 01:39:29
%S 0,2,8,8,-2304,-183776,-15141248,-1461427328,-166452797440,
%T -21941424508416,-3231615038191616,-498564870033053696,
%U -67544768806700253184,-435077810759086759936,7017404598452791761076224
%N Expansion of sinh(x)*sin(tan(x)).
%t With[{nn=30},Take[CoefficientList[Series[Sinh[x]*Sin[Tan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Mar 22 2015 *)
%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_, Mar 22 2015
|
