%I #9 Oct 30 2013 15:01:51
%S 0,2,-1,-7,18,-5,135,-2510,13300,-22895,456075,-10766650,86950050,
%T -224989375,6482478275,-213120778000,2265017781000,-5257017140375,
%U 268111942824375,-12649162007056250,161640657722878750
%N sin(arcsinh(x)+log(x+1)) = 2*x-1/2!*x^2-7/3!*x^3+18/4!*x^4-5/5!*x^5...
%H Alois P. Heinz, <a href="/A013070/b013070.txt">Table of n, a(n) for n = 0..200</a>
%t CoefficientList[Series[Sin[ArcSinh[x]+Log[x+1]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 30 2013 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Prepended missing a(0)=0, _Vaclav Kotesovec_, Oct 30 2013
|