n = 10000 (slider from 100 to 10000, step 100)
Liste1 = Sequence(Random[1, 6], i, 1, n)
a = BarChart(Liste1, 1)
absh = Frequency(Liste1)
A: (n, Element[absh, 6] / n)