OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..13000
MATHEMATICA
Select[Range[2000], PrimeQ[ToExpression[StringReverse[ToString[#^8]]]] &]
Select[Range[1800], PrimeQ[IntegerReverse[#^8]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Jun 13 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 16 2001
STATUS
approved