|
%I #10 Nov 01 2013 12:47:52
%S 2,17,617,48303,6522881,1347329463,394859190065,155788454490063,
%T 79615692221453953,51158770289333605479,40370803594653993695153,
%U 38380940325618664357898303,43267817873570429233783437313
%N tan(arcsinh(x)+tan(x))=2*x+17/3!*x^3+617/5!*x^5+48303/7!*x^7...
%H Vaclav Kotesovec, <a href="/A013094/b013094.txt">Table of n, a(n) for n = 0..200</a>
%F Limit n->infinity (a(n)/(2*n+1)!)^(1/(2*n+1)) = 1.37072091851392158... - _Vaclav Kotesovec_, Nov 01 2013
%t With[{nn=30},Take[CoefficientList[Series[Tan[ArcSinh[x]+Tan[x]],{x,0,nn}],x] Range[ 0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, May 01 2013 *)
%K nonn
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
