A013262 E.g.f.: cos(log(x+1)-sinh(x))=1-3/4!*x^4+10/5!*x^5-100/6!*x^6+693/7!*x^7...

1, 0, 0, 0, -3, 10, -100, 693, -5803, 52092, -505734, 5365195, -61255579, 754182702, -9947852044, 140160046635, -2101501505751, 33422099566552, -562127778341242, 9970641912040443, -186034070549967727

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Log[x+1]-Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 26 2014 *)

Crossrefs

Sequence in context: A013231 A013232 A013269 * A013267 A013268 A015487

Adjacent sequences: A013259 A013260 A013261 * A013263 A013264 A013265

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 26 2014

Status

approved