|
%I #11 Jul 30 2018 03:36:25
%S 0,2,-1,19,-54,1093,-7350,163231,-1890840,46856629,-793522800,
%T 22080566781,-495344954280,15484604767435,-431828053264608,
%U 15117468706455571,-502151660656769760,19584866374955872169
%N Expansion of e.g.f. arctanh(sinh(x) + log(x+1)).
%H Muniru A Asiru, <a href="/A013021/b013021.txt">Table of n, a(n) for n = 0..100</a>
%e 2*x - 1/2!*x^2 + 19/3!*x^3 - 54/4!*x^4 ...
%p seq(coeff(series(factorial(n)*arctanh(sinh(x)+log(x+1)), x,n+1),x,n),n=0..20); # _Muniru A Asiru_, Jul 30 2018
%o (PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(atanh(sinh(x) + log(x+1))))) \\ _Michel Marcus_, Jul 30 2018
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 inserted and title improved by _Sean A. Irvine_, Jul 30 2018
|
