%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