login
A009627
Expansion of sinh(x)*sin(tan(x)).
1
0, 2, 8, 8, -2304, -183776, -15141248, -1461427328, -166452797440, -21941424508416, -3231615038191616, -498564870033053696, -67544768806700253184, -435077810759086759936, 7017404598452791761076224
OFFSET
0,2
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A009666 A012346 A012649 * A009677 A318605 A021350
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Mar 22 2015
STATUS
approved