A013546 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-...

1, 1, -215, 199159, -4128623, 257347648013, -111384981593, 1407269115959761, 69849267671401979, 467410556088873329284747, 429563383515510620615310131, 652256640736921402479041889329, 137438707390027290209533044701, 432938003151091640246284451153923, 5720446637387424876679468922735017734533

Offset

0,3

Comments

A bisection of A013536. Denominators are a bisection of A202382.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

Numerator[Take[CoefficientList[Series[Cosh[Csc[x] - Coth[x]], {x, 0, 35}], x], {1, -2, 2}]] (* Vincenzo Librandi, Nov 12 2016 *)

Crossrefs

Sequence in context: A232252 A002239 A322929 * A192073 A018863 A003998

Adjacent sequences: A013543 A013544 A013545 * A013547 A013548 A013549

Keyword

sign,frac

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Name edited by R. J. Mathar, Dec 21 2011

Status

approved