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

1, 0, -4, 6, -19, 20, 26, -1218, 13021, -123624, 1277216, -12476530, 142470545, -1576920228, 20310039174, -259802497290, 3783797829145, -55910099232336, 917432601399236, -15504261990312618, 284553809208217365

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Tan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 09 2015 *)

Crossrefs

Sequence in context: A196570 A274992 A317584 * A013160 A153777 A034189

Adjacent sequences: A012925 A012926 A012927 * A012929 A012930 A012931

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 09 2015

Status

approved