|
|
A009310
|
|
Expansion of log(1+log(1+tan(x))).
|
|
0
|
|
|
0, 1, -2, 9, -51, 384, -3506, 38126, -479770, 6872392, -110410296, 1967181840, -38502498592, 821352161200, -18969587297792, 471608373782864, -12558441874756176, 356636706706414848, -10759204665600245888
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (n-1)! * (-1)^(n+1) / (arctan(1-exp(-1))^n). - Vaclav Kotesovec, Jan 22 2015
|
|
MATHEMATICA
|
Log[ 1+Log[ 1+Tan[ x ] ] ]
CoefficientList[Series[Log[1 + Log[1 + Tan[x]]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 22 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|