

A090900


Least nth power such that every concatenation is a prime.


1




OFFSET

1,1


LINKS



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



EXTENSIONS



STATUS

approved



