OFFSET
0,1
MATHEMATICA
With[{nn=40}, Take[CoefficientList[Series[Sinh[Tanh[x]*Tan[x]], {x, 0, nn}], x] Range[0, nn-2]!, {3, -1, 4}]] (* Harvey P. Dale, Mar 08 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Prior Mathematica program replaced and one additional term (a(9)) added by Harvey P. Dale, Mar 08 2015
STATUS
approved