|
%I #15 Jul 20 2018 03:11:46
%S 0,0,2,-3,4,-20,38,441,-4776,34056,-368838,5189085,-61808100,
%T 666424980,-8929309170,147346759665,-2283822093840,33140217608400,
%U -562702300383630,11332944235915965,-219113911766658060
%N Expansion of e.g.f. sin(arcsinh(x) * log(x+1)).
%H Vaclav Kotesovec, <a href="/A012573/b012573.txt">Table of n, a(n) for n = 0..96</a>
%e 2/2!*x^2 - 3/3!*x^3 + 4/4!*x^4 - 20/5!*x^5 ...
%t With[{nn=20},CoefficientList[Series[Sin[ArcSinh[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 13 2016 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Prepended missing a(0)=0 from _Vaclav Kotesovec_, Feb 03 2015
%E Inserted missing a(1)=0 and improved title from _Sean A. Irvine_, Jul 19 2018
|
