|
|
A096716
|
|
Denominators of terms in series expansion of tan(sin(x)).
|
|
14
|
|
|
1, 6, 40, 5040, 24192, 39916800, 6227020800, 37362124800, 355687428096000, 24329020081766400, 51090942171709440000, 2872446304320552960000, 5170403347776995328000000, 2177773890083670432153600000, 8841761993739701954543616000000, 249176928914482509628047360000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
tan(sin(x)) = x + 1/6*x^3 - 1/40*x^5 - 107/5040*x^7 - 73/24192*x^9 + 41897/39916800*x^11 + ...
|
|
MATHEMATICA
|
Denominator[Take[CoefficientList[Series[Tan[Sin[x]], {x, 0, 50}], x], {2, -1, 2}]] (* G. C. Greubel, Nov 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|