|
%I #17 Aug 14 2014 07:05:07
%S 2,-7,17,-1761,38969,-5371821,533244077,-95701880241,21713687902033,
%T -6101409790911765,2263678163011472213,-978147247105547939065,
%U 524239837552651158862393,-325081913127198568147313565
%N sin(arcsinh(x)+tan(x))=2*x-7/3!*x^3+17/5!*x^5-1761/7!*x^7...
%H Vincenzo Librandi, <a href="/A013092/b013092.txt">Table of n, a(n) for n = 0..100</a>
%F a(n) ~ (-1)^n * 2^(2*n+1) * n^(2*n) * cosh(Pi/2+tanh(1)) / exp(2*n). - _Vaclav Kotesovec_, Nov 01 2013
%t Table[n!*SeriesCoefficient[Sin[ArcSinh[x]+Tan[x]],{x,0,n}],{n,1,41,2}] (* _Vaclav Kotesovec_, Nov 01 2013 *)
%t With[{nn=30},Take[CoefficientList[Series[Sin[ArcSinh[x]+Tan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Aug 12 2014 *)
%K sign
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
