|
%I #17 Aug 03 2018 04:24:04
%S 0,0,-1,4,-6,8,-105,572,700,-18800,50715,-903388,31286574,-466481992,
%T 5285891611,-81297834980,1566498967800,-27364241296480,
%U 457841251437399,-8635414723705660,179513823574755490,-3746483398412176664,79423193110930596543,-1794737225880978532228
%N Expansion of e.g.f.: sin(log(x+1) - tanh(x)).
%e -(1/2!)*x^2 + (4/3!)*x^3 - (6/4!)*x^4 + (8/5!)*x^5 - ...
%t With[{nn=30},Drop[CoefficientList[Series[Sin[Log[x+1]-Tanh[x]],{x,0,nn}], x]Range[0,nn]!,2]] (* _Harvey P. Dale_, May 20 2012 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, May 20 2012
%E a(0)=a(1)=0 inserted by _Sean A. Irvine_, Aug 03 2018
|
