login
Expansion of e.g.f. sinh(arctanh(x) + log(x+1)).
0

%I #9 Feb 01 2024 17:52:48

%S 0,2,-1,12,-30,270,-1215,12600,-81900,992250,-8434125,117879300,

%T -1237732650,19666196550,-245827456875,4382752374000,-63549909423000,

%U 1257302087291250,-20745484440305625,451231749105637500

%N Expansion of e.g.f. sinh(arctanh(x) + log(x+1)).

%e 2*x - 1/2!*x^2 + 12/3!*x^3 - 30/4!*x^4 + 270/5!*x^5 ...

%t With[{nn=30},CoefficientList[Series[Sinh[ArcTanh[x]+Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Feb 01 2024 *)

%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 31 2018