%I #6 Apr 05 2023 08:29:27
%S 2,3,3,9,33,33,23,63,273,243,187,297,81,543,17,1117,237,9087,1581,693,
%T 1149,3807,3953,3499,7979,489,2751,1597,2109,8073
%N Bases of the n-th powers in A090900.
%t c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k]; c = c <> ToString[k^n], {n, 1, 30}]
%o (PARI) lista(nn) = my(k, s=""); for(n=1, nn, k=1; while(!ispseudoprime(eval(Str(s, k^n))), k++); print1(k, ", "); s=Str(s, k^n)); \\ _Jinyuan Wang_, Apr 05 2023
%Y Cf. A090900.
%K nonn,more
%O 1,1
%A _Ryan Propper_, Jul 08 2005