OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
Example 23 is in the list because the concatenation of 23^0 23^1 23^2 23^3 23^4 is 12352912167279841 and this number is prime
MATHEMATICA
Select[Range[2000], PrimeQ[FromDigits[Flatten[{IntegerDigits[#^0], IntegerDigits[#^1], IntegerDigits[#^2], IntegerDigits[#^3], IntegerDigits[#^4]}]]] &]
Select[Range[2000], PrimeQ[FromDigits[Flatten[IntegerDigits/@(#^Range[0, 4])]]]&] (* Harvey P. Dale, Dec 18 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 05 2011
STATUS
approved