login
A009035
Expansion of e.g.f.: cos(log(1+x)^2).
1
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
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
KEYWORD
sign,easy
AUTHOR
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