Naming a variable in math with an algorithm

Question

I would like to generate variable definitions using an algorithm.

For instance:

I would like to start a cycle that performs the following p = p1 p ^ 2 = p2 p ^ 3 = p3

so for p ^ i would like to define the variable pi (i is a number).

Answer 1

badListEmulation[varName_?StringQ, maxIndex_?IntegerQ] := ToExpression /@ Table[(varName <> # <> "=" <> varName <> "^" <> #) & [ ToString@i ], {i, maxIndex} ]; 

Using

  badListEmulation["var", 10] 

Result

  {var, var^2, var^3, var^4, var^5, var^6, var^7, var^8, var^9, var^10} ?var3 var3=var^3 ... etc 

Note:

Of course, it's better to use a list. Sort of

 aList = Table[p^i,{i,6}]; aList[[3]] p^3 

But I think you already know that.

NTN!