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 A279107 #6 Dec 07 2016 10:24:45 %S A279107 1,1,1,6,3,120,45,1008,315,362880,14175,7983360,467775,6227020800, %T A279107 42567525,261534873600,638512875,355687428096000,97692469875, %U A279107 4865804016353280,9280784638125,51090942171709440000,126109485376875,397723334444384256000,147926426347074375 %N A279107 Denominators of coefficients in expansion of 1/(1 - sin x). %C A279107 The numerators are the same as for sec(x) + tan(x); see A099612. %H A279107 Clark Kimberling, <a href="/A279107/b279107.txt">Table of n, a(n) for n = 0..1000</a> %e A279107 1 + x + x^2 + (5/6)x^3 + (2/3)x^4 + (61/120)x^5 + ... ; 1, 1, 1/2, 5/6, 2/3, 61/120, ... = A099612/A279107. %t A279107 z = 30; t = CoefficientList[Series[1/(1 - Sin[x]), {x, 0, z}], x]; %t A279107 Numerator[t] (* A099612 *) %t A279107 Denominator[t] (* A279107 *) %Y A279107 Cf. A099612. %K A279107 nonn,easy,frac %O A279107 0,4 %A A279107 _Clark Kimberling_, Dec 07 2016