%I #11 Nov 12 2016 08:11:58
%S 1,-1,221,-244939,1846213,-526960582373,23968139993843,
%T -5189795464140757,36594801159269740631,-16691319229288614334663751,
%U 11409300606349966887237659743,-198510162914463324156683262269
%N Numerator of [x^(2n)] of the Taylor series sech(cosec(x)-coth(x))= 1-x^2/72 +221*x^4/31104 +244939*x^6/235146240 +1846213*x^8/13544423424-...
%H Vincenzo Librandi, <a href="/A013548/b013548.txt">Table of n, a(n) for n = 0..100</a>
%t Numerator[Take[CoefficientList[Series[Sech[Csc[x] - Coth[x]], {x, 0, 35}], x], {1, -2, 2}]] (* _Vincenzo Librandi_, Nov 12 2016 *)
%K sign,frac
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Name edited by _R. J. Mathar_, Dec 21 2011
|