|
|
A009519
|
|
Expansion of e.g.f.: sin(tanh(log(1+x))).
|
|
0
|
|
|
0, 1, -1, -1, 12, -44, 0, 1364, -11312, 34588, 378900, -7237396, 57785376, -13438424, -7111845832, 116461238984, -835329363840, -6161526961904, 288993527986032, -4444723274423248, 22035938200252480, 733027816359058816
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
Table of n, a(n) for n=0..21.
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Sin[Tanh[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 23 2020 *)
|
|
CROSSREFS
|
Sequence in context: A012471 A116187 A009790 * A106808 A296181 A007899
Adjacent sequences: A009516 A009517 A009518 * A009520 A009521 A009522
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
R. H. Hardin
|
|
EXTENSIONS
|
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Apr 23 2020
|
|
STATUS
|
approved
|
|
|
|