|
%I #17 Oct 13 2022 16:51:38
%S 0,1,-2,6,-24,140,-992,8456,-84224,957840,-12257792,174293856,
%T -2726068224,46514037440,-859790139392,17115342333056,
%U -365041325441024,8304761365213440,-200743379109281792,5137820023434733056,-138802611894431514624,3947233200665413667840,-117862929315296278740992
%N Expansion of e.g.f. log(sinh(x) + cos(x)).
%H Muniru A Asiru, <a href="/A013068/b013068.txt">Table of n, a(n) for n = 0..100</a>
%e x - 2/2!*x^2 + 6/3!*x^3 - 24/4!*x^4 + 140/5!*x^5 ...
%p seq(coeff(series(factorial(n)*log(sinh(x)+cos(x)), x,n+1),x,n),n=0..20); # _Muniru A Asiru_, Jul 30 2018
%t CoefficientList[Series[Log[Sinh[x] + Cos[x]],{x,0,22}],x]Table[n!,{n,0,22}] (* _Stefano Spezia_, Oct 13 2022 *)
%o (PARI) my(x = 'x + O('x^30)); concat([0], Vec(serlaplace(log(sinh(x) + cos(x))))) \\ _Michel Marcus_, Jul 30 2018
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 inserted and title improved by _Sean A. Irvine_, Jul 30 2018
|
