In[1]:= AbsoluteTiming[
 ans = Length@
   DeleteDuplicates@Flatten@Table[a^b, {a, 2, 100}, {b, 2, 100}]]

Out[1]= {0.0105981, 9183}