login
A009386
Expansion of log(1+tanh(tan(x))).
0
0, 1, -1, 2, -6, 16, -72, 272, -1456, 7936, -47104, 353792, -2390784, 22368256, -180612096, 1903757312, -18625189888, 209865342976, -2431403622400, 29088885112832, -384624656646144, 4951498053124096, -72343735465672704
OFFSET
0,4
MATHEMATICA
Log[ 1+Tanh[ Tan[ x ] ] ]
CoefficientList[Series[Log[1 + Tanh[Tan[x]]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)
CROSSREFS
Cf. A000182.
Sequence in context: A373452 A283420 A121749 * A009605 A009681 A009186
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved