A013145 E.g.f.: cos(tanh(x)+arctan(x))=1-4/2!*x^2+48/4!*x^4-1344/6!*x^6+68096/8!*x^8...

1, -4, 48, -1344, 68096, -5489024, 649853952, -106867367936, 23404867387392, -6602987646386176, 2335532843551916032, -1012790947054260453376, 528471932766276016930816, -326628755754313262527676416, 235945768815569189548314329088

Offset

0,2

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Cos[Tanh[x]+ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 28 2012 *)

Crossrefs

Sequence in context: A321076 A166231 A191952 * A013150 A353922 A332865

Adjacent sequences: A013142 A013143 A013144 * A013146 A013147 A013148

Keyword

sign

Author

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

Extensions

More terms from and definition clarified by Harvey P. Dale, Aug 28 2012

Status

approved