OFFSET
1,1
EXAMPLE
2, 29, 2927, etc. are primes.
MATHEMATICA
c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k^n]; c = c <> ToString[k^n], {n, 1, 10}] (* Ryan Propper, Jul 08 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Dec 11 2003
EXTENSIONS
More terms from Ryan Propper, Jul 08 2005
STATUS
approved