%I #19 Apr 02 2017 15:39:46
%S 0,0,1,-3,9,-30,107,-357,492,11520,-234440,3556520,-51373780,
%T 750804600,-11349186700,179062886100,-2959725476000,51309772966400,
%U -932811192037200,17769951660870000,-354309379544446000,7384407204701604000,-160652936843547018000
%N E.g.f.: sin(log(1+x))*log(1+x)/2.
%t CoefficientList[Series[Sin[Log[1 + x]] Log[1 + x] / 2, {x, 0, 25}], x] Range[0, 25]! (* _Vincenzo Librandi_, Mar 01 2015 *)
%Y Cf. A009458.
%K sign
%O 0,4
%A _R. H. Hardin_
%E Extended with signs, Mar 1997
%E a(21)-a(22) from _Vincenzo Librandi_, Mar 01 2015