Outputting numbers symbolically

Question

Suppose I want Mathematica to output

Table[2^n, {n, 1, 5}]

Mathematica gives

{2, 4, 8, 16, 32}

but how can I get Mathematica to output

{2, 2^2, 2^3, 2^4, 2^5}

?

EDIT

What about more complicated expressions like:

Table[n^2, {n, 1, 5}]

Mathematica gives

{1, 4, 9, 16, 25}.

If I try

Table[HoldForm@n^2, {n, 1, 5}]

I get the unexpected (to me)

{n^2, n^2, n^2, n^2, n^2}

Answer 1

Try this:

 Table[x^n, {n, 1, 5}] /. x -> "2"

Answer 2

Table[With[{n = n}, HoldForm[2^n]], {n, 1, 5}]
(* or Table[With[{n = n}, Defer[2^n]], {n, 1, 5}] *)

Table[With[{n = n}, HoldForm@n^2], {n, 1, 5}]
(* or Table[With[{n = n}, Defer@n^2], {n, 1, 5}] *)

Update: If 1 and 1^2 (similarly, 2 and 2^1) are both acceptable, then you can use a simpler variant of Alexey's answer without the need for ReplaceAll:

{Array["2"^# &, {5}], Array[#^"2" &, {5}]} 

or

{Table["2"^n, {n, 1, 5}], Table[n^"2", {n, 1, 5}]}

Answer 3

As Nasser suggested, the following works for the first part of the post:

Table[HoldForm@2^n, {n, 1, 5}]

I found the answer for EDIT1: to be:

Table[(HoldForm[2^#1] &)[i], {i, 1, 5}]