A012964 Expansion of e.g.f.: cos(arctan(x)+log(x+1))=1-4/2!*x^2+6/3!*x^3+13/4!*x^4-20/5!*x^5...

1, 0, -4, 6, 13, -20, -550, 1470, 23965, -91800, -1736800, 5533550, 261341425, -1560159900, -32046389050, 113528073750, 10312454985625, -82637650862000, -1992440583581500, 7977656452281750

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A088811 A007977 A013122 * A284798 A120463 A049732

Adjacent sequences: A012961 A012962 A012963 * A012965 A012966 A012967

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, May 20 2021

Status

approved