|
%I
%S 0,1,-1,-1,0,29,-105,307,-2744,27417,-236025,2249895,-25156296,
%T 306281013,-3983598801,55800877467,-839348702160,13462454942385,
%U -229273833323025,4133677629311823,-78661216493101680,1575432052386178509
%N Expansion of e.g.f.: log(1+x)*cos(sin(x)).
%F a(n) ~ (n-1)! * (-1)^(n+1) * cos(sin(1)). - _Vaclav Kotesovec_, Jan 23 2015
%t With[{nn=30},CoefficientList[Series[Log[1+x]*Cos[Sin[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Sep 19 2014 *)
%K sign,easy
%O 0,6
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced and definition clarified by _Harvey P. Dale_, Sep 19 2014
|
