%I #13 Nov 03 2013 10:03:08
%S 0,2,-1,-4,18,138,-1425,-7368,207340,481578,-49899645,122677012,
%T 17081066310,-160273109518,-7677995678717,153514412519392,
%U 4141750812789720,-158348457721397742,-2343499454063177433
%N arcsinh(tan(x)+log(x+1)) = 2*x-1/2!*x^2-4/3!*x^3+18/4!*x^4+138/5!*x^5...
%F Lim sup n->infinity (|a(n)|/n!)^(1/n) = 1.88681124646597... = abs(1/r), where r is the complex root of the equation log(r+1)*cos(r)*(2*sin(r) + log(r+1)*cos(r)) = -1. - _Vaclav Kotesovec_, Nov 02 2013
%t CoefficientList[Series[ArcSinh[Tan[x]+Log[x+1]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Nov 01 2013 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Prepended missing a(0)=0 from _Vaclav Kotesovec_, Nov 01 2013