A013065 cosh(sinh(x)+arctan(x))=1+4/2!*x^2+8/4!*x^4+214/6!*x^6-2120/8!*x^8...

1, 4, 8, 214, -2120, 244474, -19663636, 2667954774, -459657139376, 101692759589938, -27454474974890796, 8721787160293603566, -3104642361378992916296, 1136421744211874484529546, -323876090606312632256434308, -96053520783771304241293234554

Offset

0,2

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Cosh[Sinh[x]+ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Feb 07 2015 *)

Crossrefs

Sequence in context: A188268 A133262 A120822 * A013096 A200729 A116092

Adjacent sequences: A013062 A013063 A013064 * A013066 A013067 A013068

Keyword

sign

Author

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

Extensions

More terms from Harvey P. Dale, Feb 07 2015

Status

approved