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 A260448 #18 Feb 16 2025 08:33:26
%S A260448 1,12,1440,51840,87091200,1045094400,376233984000,902961561600,
%T A260448 166867296583680000,18021668031037440000,140569010642092032000000,
%U A260448 1686828127705104384000000,8501613763633726095360000000,102019365163604713144320000000,208119504933753614814412800000000
%N A260448 Denominators in the asymptotic expansion of the Barnes G-function.
%C A260448 10^(2m)|a(n) where 5m <= n <= 5m+4, m>=0. Example: for m=4, 20<= n <= 24, the values of a(20) to a(24) are divisible by 10^(10). - _G. C. Greubel_, Dec 15 2015
%H A260448 G. C. Greubel and D. Turner, <a href="/A260448/b260448.txt">Table of n, a(n) for n = 0..175</a>
%H A260448 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BarnesG-Function.html">Barnes G-Function</a>.
%H A260448 Wikipedia, <a href="https://en.wikipedia.org/wiki/Barnes_G-function">Barnes G-function</a>.
%F A260448 G(x) ~ exp^(-3*x^2/4 + x + zeta'(-1)) * x^(x^2/2 - x + 5/12) * (2*Pi)^((x-1)/2) * (1 + (-1/12)/x + (-1/1440)/x^2 + (157/51840)/x^3 + (65911/87091200)/x^4 + ...).
%t A260448 Denominator[Exp[Series[LogBarnesG[x] - 1/12 - x + 3 x^2/4 + Log[Glaisher] + Log[2 Pi]/2 - x Log[2 Pi]/2 - 5 Log[x]/12 + x Log[x] - x^2 Log[x]/2, {x, Infinity, 20}]][[3]]]
%Y A260448 Cf. A260447 (numerators), A000178, A001163, A001164.
%K A260448 nonn,frac
%O A260448 0,2
%A A260448 _Vladimir Reshetnikov_, Nov 10 2015