%I #12 Nov 12 2016 08:11:52
%S 1,1,-215,199159,-4128623,257347648013,-111384981593,1407269115959761,
%T 69849267671401979,467410556088873329284747,
%U 429563383515510620615310131,652256640736921402479041889329,137438707390027290209533044701,432938003151091640246284451153923,5720446637387424876679468922735017734533
%N Numerator of [x^(2n)] in the Taylor expansion cosh(cosec(x)-coth(x))=1 +x^2/72 -215*x^4/31104 +199159*x^6/235146240-...
%C A bisection of A013536. Denominators are a bisection of A202382.
%H Vincenzo Librandi, <a href="/A013546/b013546.txt">Table of n, a(n) for n = 0..100</a>
%t Numerator[Take[CoefficientList[Series[Cosh[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
|