login
A009357
Expansion of log(1+sinh(x)*cos(x)).
1
0, 1, -1, 0, 2, -20, 104, -560, 2512, -7920, -32896, 1034880, -14979328, 172569280, -1684304896, 12339608320, -15173408768, -1902800305920, 53242752303104, -1037015219466240, 16518488951816192, -208832669083243520
OFFSET
0,5
MATHEMATICA
CoefficientList[Series[Log[1 + Cos[x]*Sinh[x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 24 2015 *)
CROSSREFS
Sequence in context: A222556 A103101 A267678 * A052361 A001884 A028477
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
First (incomplete) Mathematica program removed by Harvey P. Dale, Nov 10 2024
STATUS
approved