k1=1.29; k2=1.05;
Etot = k1*9/(8*R^2) + k2*k2/(2*r) - (2*k2/R)*(3/2 - (1/2)*(r/R)^2)

FindMinimum[Etot, {R, 1.243472}, {r, 0.783338}]