ReplaceAll[y^2+91 x^3 - 277/4 x^2 + 15 x - 1, {x->(-x/28+2)/13,y->y/728}]