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 A279110 #6 Dec 07 2016 10:23:51
%S A279110 1,4,24,2880,40320,7257600,479001600,697426329600,20922789888000,
%T A279110 12804747411456000,2432902008176640000,264470759477084160000,
%U A279110 620448401733239439360000,806582922253211271168000000,304888344611713860501504000000,4244045756995056938180935680000000
%N A279110 Denominators of coefficients in expansion of 2/(1 + cos(sqrt(x))).
%H A279110 Clark Kimberling, <a href="/A279110/b279110.txt">Table of n, a(n) for n = 0..1000</a>
%F A279110 2*A279009.
%e A279110 1/1 + (1/4)x + (1/24)x^2 + (17/2880)x^3 + ... ; 1/1, 1/4, 1/24, 17/2880, 31/40320, ... = |A089171|/A279110.
%t A279110 z = 26; t = CoefficientList[Series[2/(1 + Cos[Sqrt[x]]), {x, 0, z}], x];
%t A279110 Numerator[t] (* A089171, unsigned *)
%t A279110 Denominator[t] (* A279110 *)
%Y A279110 Cf. A089171, A279109.
%K A279110 nonn,easy,frac
%O A279110 0,2
%A A279110 _Clark Kimberling_, Dec 07 2016