OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..120
MATHEMATICA
With[{nn=60}, Select[CoefficientList[Series[Cos[Tanh[x]Tan[x]], {x, 0, nn}], x]Range[0, nn]!, #!=0&]] (* Harvey P. Dale, Dec 28 2012 *)
PROG
(PARI) x='x+O('x^80); v=Vec(serlaplace(cos(tanh(x)*tan(x)))); vector(#v\4, n, v[4*n-3]) \\ G. C. Greubel, Jul 25 2018
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved