OFFSET
0,2
LINKS
Stefano Spezia, Table of n, a(n) for n = 0..200
MATHEMATICA
nmax=200; expan=Series[Tanh[x]*Sin[Tan[x]]/2, {x, 0, 2*nmax}]; Join[{0}, Table[(2n)! Coefficient[expan, x^(2n)], {n, nmax}]] (* Stefano Spezia, Sep 17 2022 *)
PROG
(PARI) my(x='x+O('x^50), v=Vec(serlaplace(tanh(x)*sin(tan(x))))); concat(0, vector(#v\2, k, v[2*k-1])) \\ Michel Marcus, Sep 17 2022
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved