Tricky RegionPlot question (Mathematica)

Answer 1

Assuming you want n to be integers, try

p3 = RegionPlot[
        p - e < pp[nn, nn x] < p + e /. nn -> Floor[n],
        {n, 1, 20}, {x, 0, 1}
     ]