STATUS
editing
approved
editing
approved
With[{nn=30}, Take[CoefficientList[Series[Tanh[ Tan[ x ] ]* Sin[ x ] , {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Even Part _Harvey P. Dale_, May 17 2021 *)
Previous Mathematica program replaced by Harvey P. Dale, May 17 2021
approved
editing
editing
approved
Extended with signs by Olivier Gérard, Mar 15 1997.
approved
editing
Extended with signs Mar 15 1997 by Olivier Gérard, Mar 15 1997.
Extended with signs Mar 15 1997 by _Olivier GerardGérard_.
_R. H. Hardin (rhhardin(AT)att.net)_
sign,new
sign
R. H. Hardin (rhhrhhardin(AT)cadenceatt.comnet)
Expansion of tanh(tan(x)).*sin(x).
sign,new
sign
sign,done,new
sign
R. H. Hardin (rhh@research.att(AT)cadence.com)
Extended with signs 03/97 Mar 15 1997 by Olivier Gerard.