login
A009637
Expansion of e.g.f.: tan(log(1+sin(x))).
1
0, 1, -1, 3, -14, 71, -466, 3553, -30904, 303821, -3318856, 39897503, -523448144, 7440769571, -113918718096, 1868810091853, -32702430873984, 608043493983321, -11970695844343936, 248764988012724603, -5441743349749959424
OFFSET
0,4
LINKS
FORMULA
a(n) ~ (-1)^(n+1) * n! / (sqrt(2*exp(Pi/2)-1) * (arcsin(1-exp(-Pi/2)))^(n+1)). - Vaclav Kotesovec, Feb 02 2015
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tan[Log[1+Sin[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 09 2014 *)
CROSSREFS
Sequence in context: A137177 A158196 A191649 * A098648 A026295 A118650
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, Dec 09 2014
STATUS
approved