((∂(R^k))/(∂(Subscript[p, i]^k)))>0   and   (((∂^2)(R^k))/(∂((((Subscript[p, i]^k)))^2)))<0