A012933 Expansion of e.g.f.: cosh(tan(x)+log(x+1))=1+4/2!*x^2-6/3!*x^3+51/4!*x^4-180/5!*x^5...

1, 0, 4, -6, 51, -180, 1614, -9282, 92981, -747432, 8490344, -87525790, 1128907527, -14143194780, 206202445778, -3029299520730, 49575702703017, -833078428220240, 15183028632600076, -286645711942606518

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Tan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 07 2018 *)

Crossrefs

Sequence in context: A183369 A241159 A116656 * A013164 A013024 A012910

Adjacent sequences: A012930 A012931 A012932 * A012934 A012935 A012936

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, May 07 2018

Status

approved