A009603 Expansion of sinh(tan(tan(x))) (odd powers only).

1, 5, 113, 5669, 494081, 65835109, 12394430129, 3124415825605, 1014225530028161, 411568350375102789, 203968457810172592497, 121149200509578256609253, 84912250115184457330480001

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

Sequence in context: A208317 A279836 A279838 * A009678 A009691 A194570

Adjacent sequences: A009600 A009601 A009602 * A009604 A009605 A009606

Keyword

nonn

Author

R. H. Hardin

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