A012776 Expansion of e.g.f. arcsinh(sec(x) * log(x+1)).

0, 1, -1, 4, -6, 13, 75, -688, 3444, 17701, -627165, 8927708, -77106810, 67688905, 13345186855, -307791747352, 3673005693000, 5260749482825, -1552250968018713, 45434699608017268, -741230930507315470

Offset

0,4

Links

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

Example

x - 1/2!*x^2 + 4/3!*x^3 - 6/4!*x^4 + 13/5!*x^5 ...

Mathematica

Range[0, 21]! CoefficientList[ Series[ArcSinh[Sec[x] Log[x + 1]], {x, 0, 21}], x] (* Robert G. Wilson v, Jul 24 2018 *)

Crossrefs

Sequence in context: A160805 A359020 A246424 * A240198 A016072 A335163

Adjacent sequences: A012773 A012774 A012775 * A012777 A012778 A012779

Keyword

sign

Author

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

Extensions

a(0) inserted and title improved by Sean A. Irvine, Jul 24 2018

Status

approved