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
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