OFFSET
0,3
COMMENTS
First negative term is a(35). - Olivier Gérard, Mar 15 1997
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Sin[x]*Exp[Sinh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, May 21 2019 *)
PROG
(PARI) my(x='x+O('x^40)); Vec(serlaplace(sin(x)*exp(sinh(x)))) \\ Michel Marcus, Apr 02 2017
CROSSREFS
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, May 21 2019
STATUS
approved