|
%I #11 Oct 11 2012 14:34:27
%S -2,0,-2,4480,-2,274560,-1076275202,20650240,-595948953602,
%T 3337315890251520,-317541467443202,8443404916271478400,
%U -61468170244569234432002,17796778320664208810880,-497337594356972616069888002,4456181603844910120400213608960
%N arctan(sin(x)-sinh(x)) = -2/3!*x^3 - 2/7!*x^7 + 4480/9!*x^9 - 2/11!*x^11 + ...
%t With[{nn=40}, Take[CoefficientList[Series[ArcTan[Sin[x]-Sinh[x]], {x,0,nn}], x] Range[0,nn-1]!, {4,-1,2}]] (* _Harvey P. Dale_, Oct 11 2012 *)
%K sign
%O 3,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E More terms from _Harvey P. Dale_, Oct 11 2012
|
