|
%I #14 Nov 12 2016 04:50:15
%S 1,-2,2,-676,62,-2714132,7223932,-120994136,13831453742,
%T -463898158095404,1539871314859772,-1284535259155106488,
%U 5072225817430199548,-10084534723769793975176,4033550950013006300665768,-325181210925396330786544500464,435279229771188834270330121078
%N Numerator of [x^(2n)] of the Taylor series cos(cot(x)-coth(x))= 1 -2*x^2/9 +2*x^4/243 -676*x^6/229635 +62*x^8/295245 -...
%H Vincenzo Librandi, <a href="/A013556/b013556.txt">Table of n, a(n) for n = 0..200</a>
%t Numerator[Take[CoefficientList[Series[Cos[Cot[x] - Coth[x]], {x, 0, 35}], x], {1, -2, 2}]] (* _Vincenzo Librandi_, Nov 12 2016 *)
%K sign,frac
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Name edited by _R. J. Mathar_, Dec 22 2011
|
