A013214 E.g.f.: cos(log(x+1)-sin(x))= 1-3/4!*x^4+30/5!*x^5-180/6!*x^6+1113/7!*x^7...

1, 0, 0, 0, -3, 30, -180, 1113, -8379, 69804, -628614, 6216155, -67322211, 789438078, -9958088140, 134602170675, -1941190097399, 29743794572824, -482464755060922, 8257903545778011, -148698758217737671

Offset

0,5

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

With[{nn=30}, CoefficientList[Series[Cos[Log[x+1]-Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 26 2013 *)

Crossrefs

Sequence in context: A013279 A013280 A013221 * A013219 A013220 A177727

Adjacent sequences: A013211 A013212 A013213 * A013215 A013216 A013217

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jan 26 2013

Status

approved