The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Jul 30 2018 03:35:46
%S 0,2,-1,-5,18,-93,375,-1822,10612,-71055,573435,-5134802,51076674,
%T -550129175,6366454731,-78567215552,1026191286600,-14090173919607,
%U 201683878875351,-2979525371014106,44794367995995870,-669951379896225467,9530970253376080047,-114149386121986516660
%N Expansion of e.g.f. sin(sinh(x) + log(x+1)).
%H Vincenzo Librandi, <a href="/A013014/b013014.txt">Table of n, a(n) for n = 0..200</a>
%e 2*x - 1/2!*x^2 - 5/3!*x^3 + 18/4!*x^4 - 93/5!*x^5 ...
%t With[{nn=30}, Drop[CoefficientList[Series[Sin[Sinh[x] + Log[x+1]], {x, 0, nn}], x] Range[0, nn]!]] (* _Vincenzo Librandi_ Jul 30 2018 *)
%o (PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(sin(sinh(x) + log(x+1))))) \\ _Michel Marcus_, Jul 30 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 30 2018