Here is one way:
In[11]:= base = Block[{a}, a /. NSolve[a^9 == 1000, a][[-1, 1]]] Out[11]= 2.15443 In[13]:= base^Range[0, 9] Out[13]= {1., 2.15443, 4.64159, 10., 21.5443, 46.4159, 100., 215.443,464.159, 1000.}
EDIT
Here is a much shorter and more direct way to get the same:
In[18]:= N[10^Range[0, 3, 1/3]] Out[18]= {1., 2.15443, 4.64159, 10., 21.5443, 46.4159, 100., 215.443, 464.159, 1000.}
source share