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 A249276 #17 Feb 16 2025 08:33:24
%S A249276 -1,1,1,1,73,11,3625,5525,5233001,1212281,927777937,772193,
%T A249276 43791735453787,6889178449747,158996102434867,107876982981287,
%U A249276 782501215247703271,6225541612992329,235541803917995571502409
%N A249276 Numerators of fractions appearing in a generalization of Carleman's inequality.
%H A249276 Steven R. Finch, <a href="/A219245/a219245.pdf">Carleman's inequality</a>, 2013. [Cached copy, with permission of the author]
%H A249276 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CarlemansInequality.html">Carleman's Inequality</a>
%H A249276 Wikipedia, <a href="http://en.wikipedia.org/wiki/Carleman's_inequality">Carleman's inequality</a>
%F A249276 sum_{k >= 1} (a_1 a_2 ... a_k)^(1/k) < e*sum_{k >= 1} (1-sum_{j=1..m} b_j/(k+1)^j)*a_k, where a_k >= 0 for all k and a_l > 0 for at least one l, m being any positive integer.
%F A249276 b(0) = -1, b(n) = (-1/n)*sum_{k=1..n} b(n-k)/(k+1).
%e A249276 Fractions begin -1, 1/2, 1/24, 1/48, 73/5760, 11/1280, 3625/580608, ...
%t A249276 b[0] = -1; b[n_] := b[n] = (-1/n)*Sum[b[n - k]/(k + 1), {k, 1, n}]; Table[b[n] // Numerator, {n, 0, 20}]
%t A249276 CoefficientList[Series[-(1 - x)^(-(1 - x)/x)/E, {x, 0, 20}], x] // Numerator (* _Eric W. Weisstein_, Apr 13 2018 *)
%Y A249276 Cf. A249277 (denominators), A219245, A219246, A219336.
%K A249276 sign,frac
%O A249276 0,5
%A A249276 _Jean-François Alcover_, Oct 24 2014