A013192 - OEIS

%I #9 Feb 06 2019 12:26:08

%S 0,1,0,1,-4,33,-168,1377,-9504,99649,-930560,11796673,-137207552,

%T 2017677153,-28086102016,471591223841,-7659623550976,144742585812609,

%U -2686461109796864,56447611418620289

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

%e x + 1/3!*x^3 - 4/4!*x^4 + 33/5!*x^5 - 168/6!*x^6 ...

%t With[{nn=20},CoefficientList[Series[Log[Cosh[x]+ArcTanh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Feb 06 2019 *)

%K sign

%O 0,5

%A Patrick Demichel (patrick.demichel(AT)hp.com)

%E a(0)=0 inserted and title improved by _Sean A. Irvine_, Aug 01 2018