A024239 Expansion of tanh(tan(x)*sin(x))/2.

0, 1, 2, -89, -2668, 60541, 12497462, 330911491, -136964474008, -21093217440839, 2139299892644522, 1436807195496088351, 96866149734285315452, -134387439014403900337739, -47862471480153106563898018

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A009815.

Sequence in context: A041967 A226768 A246871 * A338734 A309994 A339581

Adjacent sequences: A024236 A024237 A024238 * A024240 A024241 A024242

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, Jun 05 2013

Status

approved