A024334 Expansion of e.g.f.: sin(log(1+x)^2)/2.

0, 0, 1, -3, 11, -50, 214, -504, -6252, 162576, -2754684, 42663060, -650722260, 10034523720, -158078985000, 2553082867440, -42265263885600, 715134876153600, -12299306666944560, 213041497002431760, -3658374963886842000, 60422495064228108000

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[Log[1+x]^2]/2, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 18 2026 *)

Crossrefs

Cf. A009468.

Sequence in context: A058733 A203163 A024333 * A390517 A162477 A115081

Adjacent sequences: A024331 A024332 A024333 * A024335 A024336 A024337

Keyword

sign,changed

Author

R. H. Hardin

Extensions

Extended with signs, Mar 1997

Previous Mathematica program replaced by Harvey P. Dale, Jul 18 2026

Status

approved