This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096730 #12 Feb 25 2018 22:54:56 %S A096730 1,3,1890,11907,1650310200,270320810760,851510553894000, %T A096730 1003164583542521400,480315202600159246320000, %U A096730 393378150929530422736080000,62700543476657854079903791200000,1975067119514722403516969422800000,76571832941186160874811737622400000 %N A096730 Denominators of terms in series expansion of (sin(tan(x)) - tan(sin(x))) / (arcsin(arctan(x)) - arctan(arcsin(x))). %D A096730 V. I. Arnold, Huygens and Barrow, Newton and Hooke, Birkhäuser, Basel, 1990. %H A096730 G. C. Greubel, <a href="/A096730/b096730.txt">Table of n, a(n) for n = 0..180</a> %e A096730 (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 - ... %t A096730 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 *) %Y A096730 Cf. A096725, A096722, A096717, A096718, A096664, A096671, A096712, A096716, A045688, A045689, A096719, A096720. %K A096730 nonn,frac %O A096730 0,2 %A A096730 _N. J. A. Sloane_, Aug 15 2004