OFFSET
0,1
MATHEMATICA
With[{nn=60}, Take[CoefficientList[Series[Sinh[Sinh[x]*Sin[x]], {x, 0, nn}], x] Range[0, nn-2]!, {3, -1, 4}]] (* Harvey P. Dale, Dec 15 2014 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
More terms from R. H. Hardin
Edited by N. J. A. Sloane, May 31 2008 at the suggestion of R. J. Mathar.
More terms from and prior Mathematica program replaced by Harvey P. Dale, Dec 15 2014
STATUS
approved