A096730 Denominators of terms in series expansion of (sin(tan(x)) - tan(sin(x))) / (arcsin(arctan(x)) - arctan(arcsin(x))).
1, 3, 1890, 11907, 1650310200, 270320810760, 851510553894000, 1003164583542521400, 480315202600159246320000, 393378150929530422736080000, 62700543476657854079903791200000, 1975067119514722403516969422800000, 76571832941186160874811737622400000
Offset: 0
Examples
(sin(tan(x)) - tan(sin(x))) / (arcsin(arctan(x)) - arctan(arcsin(x))) = 1 + 5/3*x^2 + 1313/1890*x^4 - 2773/11907*x^6 - 701933647/1650310200*x^8 - 86849082293/270320810760*x^10 - ...
References
- V. I. Arnold, Huygens and Barrow, Newton and Hooke, Birkhäuser, Basel, 1990.
Links
- G. C. Greubel, Table of n, a(n) for n = 0..180
Crossrefs
Programs
-
Mathematica
Denominator[Take[CoefficientList[Series[(Sin[Tan[x]] - Tan[Sin[x]]) / (ArcSin[ArcTan[x]] - ArcTan[ArcSin[x]]), {x, 0, 10}], x], {1, -1, 2}]] (* G. C. Greubel, Nov 20 2016 *)