|
%I
%S 1,-4,8,-214,8632,-381754,56522540,-6087452310,1458087413200,
%T -333863833250482,114840891055289940,-44663949601714088046,
%U 21870152705694370672888,-12543311598815172475041226
%N cos(arcsinh(x)+tan(x))=1-4/2!*x^2+8/4!*x^4-214/6!*x^6+8632/8!*x^8...
%F a(n) ~ (-1)^n * 2^(2*n) * n^(2*n-1) * sinh(Pi/2+tanh(1)) / exp(2*n). - _Vaclav Kotesovec_, Nov 01 2013
%t Table[n!*SeriesCoefficient[Cos[ArcSinh[x]+Tan[x]],{x,0,n}],{n,0,40,2}] (* _Vaclav Kotesovec_, Nov 01 2013 *)
%t With[{nn=30},Take[CoefficientList[Series[Cos[ArcSinh[x]+Tan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 18 2017 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
