login
E.g.f.: sin(log(1+x))*log(1+x)/2.
1

%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