A009412 Expansion of log(1+x)*cosh(sin(x)).

0, 1, -1, 5, -12, 29, -165, 993, -7056, 58617, -520065, 5139485, -56499564, 676947413, -8785333557, 122824831353, -1839706861440, 29397288124913, -499197383688033, 8976479629200565, -170396114982640300, 3405066284386654349

Offset

0,4

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * cosh(sin(1)). - Vaclav Kotesovec, Jan 23 2015

Mathematica

Log[ 1+x ]*Cosh[ Sin[ x ] ]
CoefficientList[Series[Cosh[Sin[x]]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A266471 A069306 A277088 * A009428 A220029 A192520

Adjacent sequences: A009409 A009410 A009411 * A009413 A009414 A009415

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved