A009674 Expansion of tan(sin(x)/cosh(x)).

1, -2, -28, 1160, -3504, -3908896, 360691008, 14544047232, -11198480094976, 1531305962216960, 340347851378082816, -234547726326061201408, 32383387692585279868928, 30186184832886791121723392

Offset

0,2

Links

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

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, Mar 06 2017 *)

Crossrefs

Sequence in context: A113633 A186491 A300459 * A143598 A324077 A071220

Adjacent sequences: A009671 A009672 A009673 * A009675 A009676 A009677

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 06 2017

Status

approved