A009035 Expansion of e.g.f.: cos(log(1+x)^2).

1, 0, 0, 0, -12, 120, -1020, 8820, -79548, 746928, -7222560, 70422000, -663291552, 5383325376, -19385922192, -677619961200, 27837247597392, -777514428757632, 19561790897109504, -475628128967428992, 11488209552378045888

Offset

0,5

Links

G. C. Greubel, Table of n, a(n) for n = 0..250

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Log[1+x]^2], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 30 2015 *)

Prog

(PARI) x='x+O('x^30); Vec(serlaplace(cos(log(1+x)^2))) \\ G. C. Greubel, Jul 22 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Log(1+x)^2))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 22 2018

Crossrefs

Sequence in context: A059155 A012443 A012274 * A009140 A012273 A008465

Adjacent sequences: A009032 A009033 A009034 * A009036 A009037 A009038

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jan 30 2015

Status

approved