|
|
A013081
|
|
log(arcsinh(x)+exp(x))=2*x-3/2!*x^2+10/3!*x^3-50/4!*x^4+348/5!*x^5...
|
|
0
|
|
|
0, 2, -3, 10, -50, 348, -2984, 30392, -362704, 4961296, -76245664, 1300812544, -24422250368, 500336707648, -11103109689216, 265322822941056, -6793379754870784, 185540068027414784, -5384094013002699264
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (-1)^(n+1) * (n-1)! / r^n, where r = -0.5858351763174495612608250547681201443693685684124819695... is the root of the equation 2*r*exp(exp(r)) = 1 - exp(2*exp(r)). - Vaclav Kotesovec, Feb 03 2015
|
|
MATHEMATICA
|
CoefficientList[Series[Log[E^x + ArcSinh[x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Feb 03 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|