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

0, 0, 1, -3, 9, -30, 107, -357, 492, 11520, -234440, 3556520, -51373780, 750804600, -11349186700, 179062886100, -2959725476000, 51309772966400, -932811192037200, 17769951660870000, -354309379544446000, 7384407204701604000, -160652936843547018000

Offset

0,4

Links

Table of n, a(n) for n=0..22.

Mathematica

CoefficientList[Series[Sin[Log[1 + x]] Log[1 + x] / 2, {x, 0, 25}], x] Range[0, 25]! (* Vincenzo Librandi, Mar 01 2015 *)

Crossrefs

Cf. A009458.

Sequence in context: A181933 A148957 A148958 * A036727 A216454 A053022

Adjacent sequences: A024329 A024330 A024331 * A024333 A024334 A024335

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs, Mar 1997

a(21)-a(22) from Vincenzo Librandi, Mar 01 2015

Status

approved