%I #11 Jul 31 2018 09:59:27

%S 0,2,-1,-8,18,42,15,-3460,16492,16890,286155,-12520400,99727254,

%T -271849550,6922105827,-197946213020,2348657908440,-19619328534222,

%U 396132741200439,-9735975917400728,156971908263615450,-2248810586848724102,48167349073405076823,-1170896255906195317300

%N Expansion of e.g.f. sin(tanh(x) + log(x+1)).

%H Vincenzo Librandi, <a href="/A013118/b013118.txt">Table of n, a(n) for n = 0..200</a>

%e 2*x - 1/2!*x^2 - 8/3!*x^3 + 18/4!*x^4 + 42/5!*x^5 ...

%t With[{nn=25}, Drop[CoefficientList[Series[Sin[Tanh[x] + Log[x + 1]], {x, 0, nn}], x] Range[0, nn]!]] (* _Vincenzo Librandi_, Jul 31 2018 *)

%o (PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(sin(tanh(x) + log(x+1))))) \\ _Michel Marcus_, Jul 31 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 31 2018