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

1, 0, 0, 0, -3, 30, -180, 945, -7035, 71820, -670950, 5665275, -60135075, 839188350, -10954043100, 127205953875, -1781461056375, 32362913583000, -545592285488250, 7972311855382875, -138305575427394375

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Cos[Log[x+1]-ArcSinh[x]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Aug 12 2012 *)

Crossrefs

Sequence in context: A360645 A344564 A013281 * A013279 A013280 A013221

Adjacent sequences: A013271 A013272 A013273 * A013275 A013276 A013277

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 12 2012

Status

approved