Hi,
That is since x^1 is automatically evaluated to x. Compare:
x^1 // FullForm x^n // FullForm
Use HoldForm[] to get what you expect:
HoldForm[{1, x^1, x^2, x^3}] /. x^n_ -> r[n]
I.M.
