%I #11 Nov 03 2013 07:55:27
%S 1,0,-4,6,5,-10,-220,525,8485,-46260,-197750,-1170125,86033725,
%T -778687650,1197306500,-78964192125,3166659679625,-40031792593000,
%U 227546036519750,-8010745066189125,311948554085325625
%N cos(arcsinh(x)+log(x+1)) = 1-4/2!*x^2+6/3!*x^3+5/4!*x^4-10/5!*x^5...
%H Vaclav Kotesovec, <a href="/A013074/b013074.txt">Table of n, a(n) for n = 0..450</a>
%t CoefficientList[Series[Cos[ArcSinh[x]+Log[x+1]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Nov 01 2013 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)