A013231 Expansion of e.g.f.: cosh(log(x+1)-arcsin(x))=1+3/4!*x^4-10/5!*x^5+100/6!*x^6-525/7!*x^7...

1, 0, 0, 0, 3, -10, 100, -525, 5565, -40500, 490950, -4581775, 63536275, -723857550, 11365224000, -152882218125, 2687668517625, -41677719265000, 812130983706250, -14259432279850875, 305288364810999375

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Log[x+1]-ArcSin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 09 2017 *)

Crossrefs

Sequence in context: A065924 A013233 A013226 * A013232 A013269 A013262

Adjacent sequences: A013228 A013229 A013230 * A013232 A013233 A013234

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jan 09 2017

Status

approved