A012238 cosh(arctan(arctanh(x)))=1+1/2!*x^2+1/4!*x^4+49/6!*x^6+1345/8!*x^8...

1, 1, 1, 49, 1345, 105441, 10336833, 1580651409, 316289380737, 83559601907649, 27709107620492673, 11345006679686949105, 5605389007592066373825, 3292126822668986935347105, 2265914784466771293436282305, 1806802766658673683522189272145

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cosh[ArcTan[ArcTanh[x]]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Mar 02 2015 *)

Crossrefs

Sequence in context: A115999 A228258 A282930 * A036226 A032655 A001458

Adjacent sequences: A012235 A012236 A012237 * A012239 A012240 A012241

Keyword

nonn

Author

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

Extensions

More terms from Harvey P. Dale, Mar 02 2015

Status

approved