A009627 Expansion of sinh(x)*sin(tan(x)).

0, 2, 8, 8, -2304, -183776, -15141248, -1461427328, -166452797440, -21941424508416, -3231615038191616, -498564870033053696, -67544768806700253184, -435077810759086759936, 7017404598452791761076224

Offset

0,2

Links

Table of n, a(n) for n=0..14.

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

Adjacent sequences: A009624 A009625 A009626 * A009628 A009629 A009630

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Mar 22 2015

Status

approved