A013068 - OEIS

%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