%I #8 Oct 24 2013 17:01:22
%S 1,2,4,12,48,232,1344,8960,68096,580480,5489024,57192960,649853952,
%T 8028368896,106867367936,1530617461760,23404867387392,381866595811328,
%U 6602987646386176,120993556601405440
%N exp(arctanh(x)+tan(x))=1+2*x+4/2!*x^2+12/3!*x^3+48/4!*x^4+232/5!*x^5...
%F a(n) ~ 2*exp(tan(1)) * n^n / exp(n). - _Vaclav Kotesovec_, Oct 24 2013
%t CoefficientList[Series[Exp[ArcTanh[x]+Tan[x]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 24 2013 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|