|
%I #12 Sep 18 2016 16:32:32
%S 0,1,-1,0,4,-19,74,-290,1184,-5059,22124,-93580,320464,36401,
%T -19721976,335907130,-4599046656,59558294361,-766372344976,
%U 10001627076840,-133693424522176,1839667828548821,-26126020673633376
%N Expansion of e.g.f.: sin(log(1+sin(x))).
%t With[{nn=30},CoefficientList[Series[Sin[Log[1+Sin[x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 18 2016 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Sep 18 2016
|
