OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..222
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Sinh[Tan[Tan[x]]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Sep 02 2015 *)
PROG
(PARI) x='x+O('x^30); Vec(serlaplace(sinh(tan(tan(x))))) \\ G. C. Greubel, Jan 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Sep 02 2015
STATUS
approved