A009706 tan(sinh(x)*tan(x))=2/2!*x^2+12/4!*x^4+382/6!*x^6+23352/8!*x^8...

0, 2, 12, 382, 23352, 2223002, 318236292, 63069898582, 16506522005232, 5516152886719922, 2290713333669640572, 1156963264109505327022, 698325697094916345135912, 496389417580098665436907082

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A251182 A266241 A012547 * A012551 A156509 A229919

Adjacent sequences: A009703 A009704 A009705 * A009707 A009708 A009709

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Previous Mathematica program replaced by Harvey P. Dale, May 22 2017

Status

approved