Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A009469
Expansion of sin(sin(log(1+x))).
0
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
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
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Mar 10 2017
STATUS
approved