p = 1.2 (slider from 0.1 to 2, step 0.1)
f(x) = If[x > 1, 1 / x^(p)]
a = Integral(f, 1, Infinity)