A012983 sec(arctan(x)+sin(x))=1+4/2!*x^2+56/4!*x^4+1894/6!*x^6+117288/8!*x^8...

1, 4, 56, 1894, 117288, 11804634, 1728907572, 351044605734, 93615747164592, 31926736599252978, 13490290255530367052, 6942626443208363650846, 4262966686937642406398792, 3085748295626999896052048426

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sec[ArcTan[x]+Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Feb 10 2019 *)

Crossrefs

Sequence in context: A013055 A243486 A322733 * A012959 A013113 A009105

Adjacent sequences: A012980 A012981 A012982 * A012984 A012985 A012986

Keyword

nonn

Author

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

Status

approved