A012496 exp(cos(x)*arctan(x))=1+x+1/2!*x^2-4/3!*x^3-19/4!*x^4+445/6!*x^6...

1, 1, 1, -4, -19, 0, 445, 1304, -14663, -109120, 718265, 10816896, -50970203, -1441841024, 4876389557, 258762139648, -548752599567, -60872480247808, 47436062951281, 18224782774259712, 12631837146241245

Offset

0,4

Links

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

Mathematica

With[{nn=25}, CoefficientList[Series[Exp[Cos[x]ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 01 2011 *)

Crossrefs

Sequence in context: A287677 A069874 A222323 * A024572 A357818 A009267

Adjacent sequences: A012493 A012494 A012495 * A012497 A012498 A012499

Keyword

sign

Author

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

Status

approved