cp's OEIS Frontend

A188668 Triangle read by rows: row n gives (coefficients * n!) in expansion of pieces k=0..n-1 of the cumulative distribution function for the Irwin-Hall distribution, lowest powers first.

%I A188668 #30 Feb 19 2021 07:23:56
%S A188668 0,1,0,0,1,-2,4,-1,0,0,0,1,3,-9,9,-2,-21,27,-9,1,0,0,0,0,1,-4,16,-24,
%T A188668 16,-3,92,-176,120,-32,3,-232,256,-96,16,-1,0,0,0,0,0,1,5,-25,50,-50,
%U A188668 25,-4,-315,775,-750,350,-75,6,2115,-3275,1950,-550,75,-4,-3005,3125,-1250,250,-25,1
%N A188668 Triangle read by rows: row n gives (coefficients * n!) in expansion of pieces k=0..n-1 of the cumulative distribution function for the Irwin-Hall distribution, lowest powers first.
%C A188668 This is the probability distribution for the sum of n independent, random variables, each uniformly distributed on [0,1).
%H A188668 Alois P. Heinz, <a href="/A188668/b188668.txt">Rows n = 1..31, flattened</a>
%H A188668 Philip Hall, <a href="http://www.jstor.org/stable/2331961">The Distribution of Means for Samples of Size N Drawn from a Population in which the Variate Takes Values Between 0 and 1, All Such Values Being Equally Probable</a>, Biometrika, Vol. 19, No. 3/4. (Dec., 1927), pp. 240-245.
%H A188668 Wikipedia, <a href="http://en.wikipedia.org/wiki/Irwin%E2%80%93Hall_distribution">Irwin-Hall distribution</a>
%F A188668 G.f. for piece k in row n: (1/n!) * Sum_{j=0..k} (-1)^j * C(n,j) * (x-j)^n.
%e A188668 For n = 3, k = 2 (three variables, third piece) the distribution is the polynomial: 1/6 * (1*(x-0)^3 - 3*(x-1)^3 + 3*(x-2)^3) = 1/6 * (-21 + 27*x - 9*x^2 + x^3). That gives the subsequence [-21, 27, -9, 1].
%e A188668 Triangle begins:
%e A188668   [0, 1];
%e A188668   [0, 0, 1], [-2, 4, -1];
%e A188668   [0, 0, 0, 1], [3, -9, 9, -2], [-21, 27, -9, 1];
%e A188668   ...
%p A188668 f:= proc(n, k) option remember;
%p A188668        add((-1)^j * binomial(n, j) * (x-j)^n, j=0..k)
%p A188668     end:
%p A188668 T:= (n, k)-> seq(coeff(f(n, k), x, t), t=0..n):
%p A188668 seq(seq(T(n, k), k=0..n-1), n=1..7);  # _Alois P. Heinz_, Apr 09 2011
%t A188668 f[n_, k_] := f[n, k] = Sum[(-1)^j*Binomial[n, j]*(x-j)^n, {j, 0, k}]; T[n_, k_] := Table[Coefficient[f[n, k], x, t], {t, 0, n}]; Table[T[n, k], {n, 1, 7}, { k, 0, n-1}] // Flatten (* _Jean-François Alcover_, Feb 26 2017, after _Alois P. Heinz_ *)
%K A188668 sign,look,tabf
%O A188668 1,6
%A A188668 _Thomas Dybdahl Ahle_, Apr 07 2011