regionplot[((a/2-1)^(1/a)<x<=(a-1)^(1/a))&(a>=2),{a,1,6},{x,0,2}]