A012559 cos(sinh(x)*arctan(x))=1-12/4!*x^4+120/6!*x^6-5040/8!*x^8...

1, 0, -12, 120, -5040, 398400, -42267456, 6511220352, -1348919320320, 361546293368832, -121866178161646592, 50449587034359175168, -25164869672254098452480, 14886957060645519281602560

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..50

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Sinh[x]ArcTan[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Oct 16 2012 *)

Crossrefs

Sequence in context: A010570 A012374 A012615 * A009164 A012436 A012619

Adjacent sequences: A012556 A012557 A012558 * A012560 A012561 A012562

Keyword

sign

Author

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

Status

approved