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

1, 4, 12, -128, -5232, -54848, 5325504, 403442176, 558723328, -2994514283520, -295655443772416, 17110494845845504, 9628494110111469568, 971219320278689300480, -262986198032101769035776

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A331905 A367885 A053551 * A197899 A002029 A204321

Adjacent sequences: A009660 A009661 A009662 * A009664 A009665 A009666

Keyword

sign

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, May 15 2021

Status

approved