%I M0916 #27 Jan 27 2018 06:28:28
%S 1,0,2,-3,16,-80,440,-3171,24680,-218952,2170018,-23566675,279907076,
%T -3603250716,49968204078,-742893013695,11785962447792,
%U -198748512229968,3550002639307890,-66954457199954115,1329661510693923636
%N Expansion of e.g.f. (1+x)^sin(x).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%F a(n) = sum(k=1..n, sum(r=0..n/2-k, binomial(n,2*r+k)*(stirling1(n-2*r-k,k)*sum(i=0..k/2, (2*i-k)^(2*r+k)*binomial(k,i)*(-1)^(r+k-i))))/2^(k-1)), n>0, a(0)=1. - _Vladimir Kruchinin_, Jun 01 2011
%F |a(n)| ~ n! * n^(sin(1)-1)/Gamma(sin(1)). - _Vaclav Kotesovec_, Jun 27 2013
%t With[{nn=30},CoefficientList[Series[(1+x)^Sin[x],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Jan 20 2013 *)
%o (Maxima)
%o a(n):=sum(sum(binomial(n,2*r+k)*(stirling1(n-2*r-k,k)*sum((2*i-k)^(2*r+k)*binomial(k,i)*(-1)^(r+k-i),i,0,k/2)),r,0,n/2-k)/2^(k-1),k,1,n); /* _Vladimir Kruchinin_, Jun 01 2011 */
%K sign,easy
%O 0,3
%A _Simon Plouffe_