|
%I #11 Jan 25 2019 14:09:18
%S 0,1,-2,6,-24,148,-1040,9184,-91840,1066640,-13775872,199000736,
%T -3146553344,54431471040,-1017854502912,20523724218880,
%U -442966494683136,10203766053312768,-249626351047671808
%N Expansion of e.g.f. log(cos(x) + arcsin(x)).
%e x - 2/2!*x^2 + 6/3!*x^3 - 24/4!*x^4 + 148/5!*x^5 ...
%t With[{nn=20},CoefficientList[Series[Log[Cos[x]+ArcSin[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Jan 25 2019 *)
%o (PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(log(cos(x) + asin(x))))) \\ _Michel Marcus_, Jul 30 2018
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 inserted and title improved by _Sean A. Irvine_, Jul 30 2018
|
