|
|
A012277
|
|
Expansion of e.g.f. arcsinh(exp(x)*log(x+1)).
|
|
1
|
|
|
0, 1, 1, 1, -6, -17, -35, 901, 4284, 4201, -614267, -4098107, 8297630, 1150691631, 9449070657, -66322881767, -4588041616648, -41917690024495, 618354247728873, 33330584633391337, 310446365545119298
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
EXAMPLE
|
arcsinh(exp(x)*log(x+1)) = x+1/2!*x^2+1/3!*x^3-6/4!*x^4-17/5!*x^5 ...
|
|
MAPLE
|
seq(coeff(series(factorial(n)*arcsinh(exp(x)*log(x+1)), x, n+1), x, n), n = 0 .. 20); # Muniru A Asiru, Oct 28 2018
|
|
MATHEMATICA
|
Range[0, 20]! CoefficientList[ Series[ ArcSinh[ Exp[x] Log[x + 1]], {x, 0, 20}], x] (* Robert G. Wilson v, Feb 22 2013 *)
|
|
PROG
|
(PARI) x='x+O('x^30); concat([0], Vec(serlaplace(asinh(exp(x)* log(x+1))))) \\ G. C. Greubel, Oct 28 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Argsinh(Exp(x)*Log(x+1)) )); [0] cat [Factorial(n)*b[n]: n in [1..m-1]]; // G. C. Greubel, Oct 28 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|