(* 
      in questo listato n è il numero di esperimenti *) 

n = 100;

    u = 100;

    c  =  0;

    For[i  =  1,  
      i  ≤  n, i++, 
A  =  
        Table[0 ,  {u}]; 
While[
        Min[A]  ==  0, 
x  =  
          Random[Integer, {1, 
              u}]; 
A[[x]]++;
]; 
c  +=  
        Sum[ A[[i]], {i, u} ];
]

    N[(c/n)]