OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..100
MATHEMATICA
Numerator[Take[CoefficientList[Series[- Tan[Cot[x] - Coth[x]], {x, 0, 35}], x], {2, -2, 2}]] (* Vincenzo Librandi, Nov 12 2016 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Name edited by R. J. Mathar, Dec 21 2011
STATUS
approved