|
%I #15 May 21 2012 17:35:09
%S 1,-4,60,-2784,225680,-29884864,5784292800,-1544557830144,
%T 543835022577920,-244140571254682624,136105808837097815040,
%U -92250989686413124706304,74707244097461420738908160
%N E.g.f.: arctan(sinh(x)*cos(x)) = x - 4/3!*x^3 + 60/5!*x^5 - 2784/7!*x^7 + 225680/9!*x^9...
%H Vincenzo Librandi, <a href="/A012567/b012567.txt">Table of n, a(n) for n = 1..200</a>
%t With[{nn=30}, Take[CoefficientList[Series[ArcTan[Sinh[x]Cos[x]],{x,0,nn}], x] Range[0,nn-1]!, {2,-1,2}]] (* _Harvey P. Dale_, May 16 2012 *)
%K sign
%O 1,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, May 16 2012
|
