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 A090138 #15 Apr 12 2025 17:12:51 %S A090138 1,1,6,3,40,90,336,56,51840,226800,4435200,11975040,188697600, %T A090138 1210809600,100590336000,93405312000,23712495206400,2598365952000, %U A090138 6360528125952,3754478407680000,537799391281152000,802857662698291200 %N A090138 Denominator of the probability that the sum of n uniform picks on [0,1] is first greater than 2 (i.e., the sum of n-1 is not). %H A090138 Daniel Mondot, <a href="/A090138/b090138.txt">Table of n, a(n) for n = 1..400</a> %H A090138 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/UniformSumDistribution.html">Uniform Sum Distribution</a>. %F A090138 a(n) = denominator((n-2)*(2^(n-1)-n)/n!). - _Amiram Eldar_, Apr 12 2022 %e A090138 0, 0, 1/6, 1/3, 11/40, 13/90, 19/336, ... %t A090138 a[n_] := Denominator[(n - 2)*(2^(n - 1) - n)/n!]; Array[a, 50] (* _Amiram Eldar_, Apr 12 2022 *) %Y A090138 Cf. A090137 (numerators). %K A090138 nonn,frac %O A090138 1,3 %A A090138 _Eric W. Weisstein_, Nov 22 2003