login
A012671
sinh(tanh(x)*tan(x))=2/2!*x^2+232/6!*x^6+405152/10!*x^10...
1
2, 232, 405152, 3115956352, 68413355397632, 3412444856961083392, 334650367409781717573632, 58337032599905770133366013952, 16778439915509994766212708150935552, 7517731717169060247294932882974199775232
OFFSET
0,1
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
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