login
Bases of the n-th powers in A090900.
0

%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