A009609 sinh(tan(x)*sin(x))=2/2!*x^2+4/4!*x^4+182/6!*x^6+4744/8!*x^8...

0, 2, 4, 182, 4744, 287402, 21494284, 2264343902, 304602955024, 51600721945682, 10697629642233364, 2665265431805294342, 785147451273373098904, 269855118987322780537082, 106983136938538203343804444, 48443492657600381889310646702

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A018608 A018611 A012369 * A012367 A165508 A018633

Adjacent sequences: A009606 A009607 A009608 * A009610 A009611 A009612

Keyword

nonn

Author

R. H. Hardin

Extensions

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

More terms from and prior Mathematica program replaced by Harvey P. Dale, May 18 2015

Status

approved