A009314 Expansion of log(1+log(1+x))*cosh(x).

0, 1, -2, 10, -47, 303, -2389, 22622, -249724, 3150109, -44706126, 705095994, -12235794207, 231698450475, -4754358750933, 105087911110062, -2489277413102144, 62908278710542137, -1689451592993832258, 48047639078438987082, -1442565756163540276727

Offset

0,3

Links

Alois P. Heinz, Table of n, a(n) for n = 0..200

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * cosh(1-exp(-1)) / (1-exp(-1))^n. - Vaclav Kotesovec, Jan 22 2015

Mathematica

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

Crossrefs

Sequence in context: A034429 A242638 A058149 * A009316 A116194 A054138

Adjacent sequences: A009311 A009312 A009313 * A009315 A009316 A009317

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved