A009183 Expansion of e.g.f.: cosh(x)/cosh(log(1+x)).

1, 0, 0, 3, -11, 30, -14, -525, 4593, -22428, 17596, 1039995, -13641275, 96216978, -105681666, -8517557685, 148962722881, -1373978443800, 1940315387608, 198084321525267, -4330346354150859, 49339565916861990, -85160442362115350

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Cosh[x]/Cosh[Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 13 2012 *)

Crossrefs

Sequence in context: A328550 A179234 A338051 * A165893 A106397 A295144

Adjacent sequences: A009180 A009181 A009182 * A009184 A009185 A009186

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified by Harvey P. Dale, Aug 13 2012

Status

approved