A024273 Expansion of sin(tanh(x))*x/2.

0, 1, -6, 111, -3836, 208205, -16162146, 1691108251, -228856755640, 38843134101081, -8072581315789950, 2015026740164435591, -594586585293174554676, 204653655148187534506789

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A009525.

Sequence in context: A112499 A272391 A197765 * A024274 A162081 A296949

Adjacent sequences: A024270 A024271 A024272 * A024274 A024275 A024276

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Previous Mathematica program replaced by Harvey P. Dale, Aug 25 2020

Status

approved