%I #18 Jun 24 2015 04:20:26
%S 0,0,2,-6,18,-60,214,-714,984,23040,-468880,7113040,-102747560,
%T 1501609200,-22698373400,358125772200,-5919450952000,102619545932800,
%U -1865622384074400,35539903321740000,-708618759088892000,14768814409403208000
%N Expansion of sin(log(1+x))*log(1+x).
%F a(n) = sum(k=1..n/2, ((-1)^(k-1)*2*k*stirling1(n,2*k))). - _Vladimir Kruchinin_, Jun 28 2011
%t Sin[ Log[ 1+x ] ]*Log[ 1+x ]
%t CoefficientList[Series[Sin[Log[1+x]]*Log[1+x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)
%o (Maxima) a(n):=sum(((-1)^(k-1)*2*k*stirling1(n,2*k)),k,1,n/2); /* _Vladimir Kruchinin_, Jun 28 2011 */
%Y Cf. A024332.
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997