A009469 Expansion of sin(sin(log(1+x))).

0, 1, -1, 0, 6, -34, 150, -556, 1288, 5444, -124020, 1363304, -11098824, 45441280, 843961664, -33666774896, 837623746560, -18618329327344, 402064539572592, -8714839633275584, 192514023819866720, -4367651716000415584

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[Sin[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 10 2017 *)

Crossrefs

Sequence in context: A262844 A166941 A086934 * A222190 A304944 A344717

Adjacent sequences: A009466 A009467 A009468 * A009470 A009471 A009472

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Prior Mathematica program replaced by Harvey P. Dale, Mar 10 2017

Status

approved