B1 = 0
B2: B1 + 1
B3: B2 + 1
B4: B3 + 1
B5: B4 + 1
B6: B5 + 1
B7: B6 + 1
B8: B7 + 1
B9: B8 + 1
B10: B9 + 1
B11: B10 + 1
B12: B11 + 1
B13: B12 + 1
B14: B13 + 1
C1 = 1
C2 = 1
C3 = Sum(Sequence[Cell[3, i + 1] * Binomial[B2, i], i, 0, B2])
C4 = Sum(Sequence[Cell[3, i + 1] * Binomial[B3, i], i, 0, B3])
C5 = Sum(Sequence[Cell[3, i + 1] * Binomial[B4, i], i, 0, B4])
Zelle[3, 2] = Sum(Sequence[Cell[3, i + 1] * Binomial[B5, i], i, 0, B5])
C7 = Sum(Sequence[Cell[3, i + 1] * Binomial[B6, i], i, 0, B6])
C8 = Sum(Sequence[Cell[3, i + 1] * Binomial[B7, i], i, 0, B7])
C9 = Sum(Sequence[Cell[3, i + 1] * Binomial[B8, i], i, 0, B8])
C10 = Sum(Sequence[Cell[3, i + 1] * Binomial[B9, i], i, 0, B9])
C11 = Sum(Sequence[Cell[3, i + 1] * Binomial[B10, i], i, 0, B10])
C12 = Sum(Sequence[Cell[3, i + 1] * Binomial[B11, i], i, 0, B11])
C13 = Sum(Sequence[Cell[3, i + 1] * Binomial[B12, i], i, 0, B12])
C14 = Sum(Sequence[Cell[3, i + 1] * Binomial[B13, i], i, 0, B13])
C6 = Sum(Sequence[Cell[3, i + 1] * Binomial[B5, i], i, 0, B5])
B15: B14 + 1
C15 = Sum(Sequence[Cell[3, i + 1] * Binomial[B14, i], i, 0, B14])
B16: B15 + 1
C16 = Sum(Sequence[Cell[3, i + 1] * Binomial[B15, i], i, 0, B15])
B17: B16 + 1
C17 = Sum(Sequence[Cell[3, i + 1] * Binomial[B16, i], i, 0, B16])
B18: B17 + 1
C18 = Sum(Sequence[Cell[3, i + 1] * Binomial[B17, i], i, 0, B17])
B19: B18 + 1
C19 = Sum(Sequence[Cell[3, i + 1] * Binomial[B18, i], i, 0, B18])
B20: B19 + 1
C20 = Sum(Sequence[Cell[3, i + 1] * Binomial[B19, i], i, 0, B19])
B21: B20 + 1
C21 = Sum(Sequence[Cell[3, i + 1] * Binomial[B20, i], i, 0, B20])
B22: B21 + 1
C22 = Sum(Sequence[Cell[3, i + 1] * Binomial[B21, i], i, 0, B21])
B23: B22 + 1
C23 = Sum(Sequence[Cell[3, i + 1] * Binomial[B22, i], i, 0, B22])
B24: B23 + 1
C24 = Sum(Sequence[Cell[3, i + 1] * Binomial[B23, i], i, 0, B23])
B25: B24 + 1
C25 = Sum(Sequence[Cell[3, i + 1] * Binomial[B24, i], i, 0, B24])
B26: B25 + 1
C26 = Sum(Sequence[Cell[3, i + 1] * Binomial[B25, i], i, 0, B25])
B27: B26 + 1
C27 = Sum(Sequence[Cell[3, i + 1] * Binomial[B26, i], i, 0, B26])
n = 6 (slider from 0 to 23, step 1)
L = Sequence((Object["B" + (t)], Object["C" + (t)]), t, 2, n)
B = Text("B(" + n + ")  = " + (Object["C" + (n + 1)]))