A012671 sinh(tanh(x)*tan(x))=2/2!*x^2+232/6!*x^6+405152/10!*x^10...

2, 232, 405152, 3115956352, 68413355397632, 3412444856961083392, 334650367409781717573632, 58337032599905770133366013952, 16778439915509994766212708150935552, 7517731717169060247294932882974199775232

Offset

0,1

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Sinh[Tanh[x]*Tan[x]], {x, 0, nn}], x] Range[0, nn-2]!, {3, -1, 4}]] (* Harvey P. Dale, Mar 08 2015 *)

Crossrefs

2 * A009671(n).

Sequence in context: A133495 A066622 A261493 * A012526 A012668 A012530

Adjacent sequences: A012668 A012669 A012670 * A012672 A012673 A012674

Keyword

nonn

Author

R. H. Hardin, Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Prior Mathematica program replaced and one additional term (a(9)) added by Harvey P. Dale, Mar 08 2015

Status

approved