|
|
A013190
|
|
log(cosh(x)+arcsinh(x))=x-2/3!*x^3+8/4!*x^4-12/5!*x^5-48/6!*x^6...
|
|
0
|
|
|
0, 1, 0, -2, 8, -12, -48, 432, -2112, 10000, 14080, -1500512, 17517568, -18269760, -1666201600, 16350361856, -45064462336, 922523568384, -4131436888064, -990634832194048, 21402743134224384, 92553699220882432
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ 2*n^(n-1) * exp(-n) * (2*Pi*cos(n*Pi/2) + 4*cos(1)*sin(n*Pi/2)) / (2+Pi^2+2*cos(2)). - Vaclav Kotesovec, Nov 01 2013
|
|
MATHEMATICA
|
CoefficientList[Series[Log[Cosh[x]+ArcSinh[x]], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Nov 01 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|