|
%I #10 Apr 12 2022 04:23:24
%S 1,1,6,3,40,90,336,56,51840,226800,4435200,11975040,188697600,
%T 1210809600,100590336000,93405312000,23712495206400,2598365952000,
%U 6360528125952,3754478407680000,537799391281152000,802857662698291200
%N 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 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UniformSumDistribution.html">Uniform Sum Distribution</a>.
%F a(n) = denominator((n-2)*(2^(n-1)-n)/n!). - _Amiram Eldar_, Apr 12 2022
%e 0, 0, 1/6, 1/3, 11/40, 13/90, 19/336, ...
%t a[n_] := Denominator[(n - 2)*(2^(n - 1) - n)/n!]; Array[a, 50] (* _Amiram Eldar_, Apr 12 2022 *)
%Y Cf. A090137 (numerators).
%K nonn,frac
%O 1,3
%A _Eric W. Weisstein_, Nov 22 2003
|
