a_n

L = Sequence((-1.0)^(n) * n / (n + 1.0), n, 1.0, 30.0)
n = 1 (slider from 1 to 30, step 1)
A: (Element[L, n], 0.0)