A013556 - OEIS

%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