|
| |
|
|
A024331
|
|
Expansion of log(1+x)*log(1+tanh(x))/2.
|
|
1
|
|
|
|
0, 0, 1, -3, 7, -20, 102, -658, 4364, -32736, 293760, -2954512, 31998048, -377807040, 4885788992, -68173993856, 1016048413440, -16157627437056, 273596846948352, -4908327247431680, 92923391633776640, -1852316352709746688
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
