|
%I #6 Aug 01 2012 16:04:44
%S 1,3,-35,-1057,59865,5446683,-726781835,-133713611977,32440474082865,
%T 10034804733270963,-3854719922524818035,-1800259494456990656497,
%U 1004556790822666566963465
%N E.g.f.: arctan(cosh(x)*tan(x))=x+3/3!*x^3-35/5!*x^5-1057/7!*x^7+59865/9!*x^9...
%t With[{nn=30},Take[CoefficientList[Series[ArcTan[Cosh[x]Tan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Aug 01 2012 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Aug 01 2012
|
