A012890 Expansion of e.g.f. arctan(sin(x) + log(x+1)).

0, 2, -1, -15, 42, 653, -4890, -65051, 1029560, 10876589, -341906400, -2371373301, 162702562440, 368100726615, -103982400082288, 393050098566969, 84905400106831200, -995896955006440711

Offset

0,2

Links

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

Maple

2*x - 1/2!*x^2 - 15/3!*x^3 + 42/4!*x^4 + 653/5!*x^5 ...

Mathematica

With[{nn=20}, CoefficientList[Series[ArcTan[Sin[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 19 2021 *)

Crossrefs

Sequence in context: A039652 A012894 A013076 * A013073 A184232 A074952

Adjacent sequences: A012887 A012888 A012889 * A012891 A012892 A012893

Keyword

sign

Author

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

Extensions

a(0) inserted and title improved by Sean A. Irvine, Jul 27 2018

Status

approved