OFFSET
1,1
EXAMPLE
Example 9 is in the list because the concatenation of 9^3 9^2 9^1 9^0 is 7298191 and this number is prime.
MATHEMATICA
Select[Range[1000], PrimeQ[FromDigits[Flatten[IntegerDigits/@ (#^Range[ 3, 0, -1])]]]&] (* Harvey P. Dale, Jul 27 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 05 2011
STATUS
approved