This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A007118 M0916 #27 Jan 27 2018 06:28:28
%S A007118 1,0,2,-3,16,-80,440,-3171,24680,-218952,2170018,-23566675,279907076,
%T A007118 -3603250716,49968204078,-742893013695,11785962447792,
%U A007118 -198748512229968,3550002639307890,-66954457199954115,1329661510693923636
%N A007118 Expansion of e.g.f. (1+x)^sin(x).
%D A007118 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%F A007118 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 A007118 |a(n)| ~ n! * n^(sin(1)-1)/Gamma(sin(1)). - _Vaclav Kotesovec_, Jun 27 2013
%t A007118 With[{nn=30},CoefficientList[Series[(1+x)^Sin[x],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Jan 20 2013 *)
%o A007118 (Maxima)
%o A007118 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 A007118 sign,easy
%O A007118 0,3
%A A007118 _Simon Plouffe_