A009449 Expansion of e.g.f.: sin(log(1+log(1+x))).

0, 1, -2, 6, -23, 99, -379, -262, 43940, -1040942, 21148764, -425218324, 8815744554, -191341725498, 4373089531474, -105434549548356, 2681427980474560, -71863978166452700, 2026733667001278600, -60049911134969228680

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Log[1+Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 19 2018 *)

Crossrefs

Sequence in context: A278301 A242586 A196018 * A233106 A133656 A078487

Adjacent sequences: A009446 A009447 A009448 * A009450 A009451 A009452

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, May 19 2018

Status

approved