A012174 Expansion of e.g.f.: exp(tan(arctanh(x)))=1+x+1/2!*x^2+5/3!*x^3+17/4!*x^4+121/5!*x^5...

1, 1, 1, 5, 17, 121, 721, 6621, 56545, 636337, 7062241, 94260341, 1283497841, 19853570985, 319471153457, 5628171840461, 104260273696961, 2063430523313761, 43168502192389825, 949149114720943077

Offset

0,4

Links

Table of n, a(n) for n=0..19.

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Tan[ArcTanh[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 27 2016 *)

Crossrefs

Sequence in context: A009240 A180387 A324411 * A202038 A012259 A256459

Adjacent sequences: A012171 A012172 A012173 * A012175 A012176 A012177

Keyword

nonn

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, Dec 27 2016

Status

approved