Author: Kurt Söser

a(n) = (n + 3) / (3 * n)
g = 0.3333333333333333
e = 0.1 (slider from 0 to 1, step 0.01)
liste1: {10}
k = 7 (slider from 1 to 50, step 1)
Liste1 = Sequence((i, a(i)), i, 1, k)
n0: floor(Element[liste1, 1]) + 1
Liste2 = Sequence((i, a(i)), i, n0, k)
b: y = g
c: y = g + e
d: y = g - e