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

1, -2, 12, -464, 336, -838752, -11036608, -5128035072, -109537337088, -68456854604288, 1239349299477504, -1118496851419058176, 496293938871527395328, 82254029902844029313024, 110360677045459831814963200, 38125337574469492416381255680

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A350790 A296623 A121348 * A091471 A357895 A012625

Adjacent sequences: A009507 A009508 A009509 * A009511 A009512 A009513

Keyword

sign

Author

R. H. Hardin

Extensions

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

More terms from and prior Mathematica program replaced by Harvey P. Dale, Jan 22 2017

Duplicated term removed by Sean A. Irvine, Apr 25 2018

Status

approved