A024279 Expansion of tan(tan(x)*sinh(x))/2.

0, 1, 6, 191, 11676, 1111501, 159118146, 31534949291, 8253261002616, 2758076443359961, 1145356666834820286, 578481632054752663511, 349162848547458172567956, 248194708790049332718453541

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[Tan[x]*Sinh[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 12 2019 *)

Crossrefs

A009706.

Sequence in context: A385354 A222016 A059491 * A350873 A382530 A182788

Adjacent sequences: A024276 A024277 A024278 * A024280 A024281 A024282

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested 03/97.

Previous Mathematica program replaced by Harvey P. Dale, Aug 12 2019

Status

approved