A009511 Expansion of sin(tan(x)*cosh(x)).

1, 4, -8, -1752, -117312, -7882624, -537535360, -27307332608, 2518262718464, 1691557864632320, 611413449329426432, 205087300464349216768, 69390989848092392194048, 23951002005666040825905152

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[Tan[x]Cosh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Dec 22 2013 *)

Crossrefs

Sequence in context: A013441 A013445 A201386 * A057841 A069883 A069647

Adjacent sequences: A009508 A009509 A009510 * A009512 A009513 A009514

Keyword

sign

Author

R. H. Hardin, Mar 15 1996

Extensions

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

Prior Mathematica program replaced by Harvey P. Dale, Dec 22 2013

Status

approved