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

%I #10 Mar 08 2015 14:33:09

%S 2,232,405152,3115956352,68413355397632,3412444856961083392,

%T 334650367409781717573632,58337032599905770133366013952,

%U 16778439915509994766212708150935552,7517731717169060247294932882974199775232

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

%t 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 *)

%Y 2 * A009671(n).

%K nonn

%O 0,1

%A _R. H. Hardin_, Patrick Demichel (patrick.demichel(AT)hp.com)

%E Prior Mathematica program replaced and one additional term (a(9)) added by _Harvey P. Dale_, Mar 08 2015