A024331 Expansion of log(1+x)*log(1+tanh(x))/2.

0, 0, 1, -3, 7, -20, 102, -658, 4364, -32736, 293760, -2954512, 31998048, -377807040, 4885788992, -68173993856, 1016048413440, -16157627437056, 273596846948352, -4908327247431680, 92923391633776640, -1852316352709746688

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

With[{nn=30}, CoefficientList[Series[Log[1+x]*Log[1+Tanh[x]]/2, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 30 2013 *)

Crossrefs

Cf. A009423.

Sequence in context: A232687 A211602 A110149 * A007174 A091184 A174348

Adjacent sequences: A024328 A024329 A024330 * A024332 A024333 A024334

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs, Mar 1997

Prior Mathematica program replaced by Harvey P. Dale, Nov 30 2013

Status

approved