A110042 Bases of the n-th powers in A090900.

2, 3, 3, 9, 33, 33, 23, 63, 273, 243, 187, 297, 81, 543, 17, 1117, 237, 9087, 1581, 693, 1149, 3807, 3953, 3499, 7979, 489, 2751, 1597, 2109, 8073

Offset

1,1

Links

Table of n, a(n) for n=1..30.

Mathematica

c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k]; c = c <> ToString[k^n], {n, 1, 30}]

Prog

(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

Crossrefs

Cf. A090900.

Sequence in context: A340914 A194232 A371567 * A306101 A364967 A337432

Adjacent sequences: A110039 A110040 A110041 * A110043 A110044 A110045

Keyword

nonn,more

Author

Ryan Propper, Jul 08 2005

Status

approved