A012420 exp(arctan(x)*sin(x))=1+2/2!*x^2-50/6!*x^6+56/8!*x^8+27178/10!*x^10...

1, 2, 0, -50, 56, 27178, -2358884, 320163870, -64993423408, 17229734819538, -5720421047111484, 2329873846478810630, -1143585527502409144520, 666071310836628939214906, -454305678798485051002579924

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Exp[ArcTan[x]Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jun 19 2016 *)

Crossrefs

Sequence in context: A009718 A198799 A156501 * A140800 A012694 A264437

Adjacent sequences: A012417 A012418 A012419 * A012421 A012422 A012423

Keyword

sign

Author

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

Status

approved