login
A009603
Expansion of sinh(tan(tan(x))) (odd powers only).
1
1, 5, 113, 5669, 494081, 65835109, 12394430129, 3124415825605, 1014225530028161, 411568350375102789, 203968457810172592497, 121149200509578256609253, 84912250115184457330480001
OFFSET
0,2
LINKS
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
Sequence in context: A208317 A279836 A279838 * A009678 A009691 A194570
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