%I
%S 2,20,29,41,71,76,79,133,151,152,193,200,257,268,290,359,377,379,382,
%T 389,410,493,518,544,607,710,739,760,773,784,790,794,964,1006,1019,
%U 1024,1049,1178,1217,1330,1336,1339,1409,1427,1442,1448,1456,1481,1492
%N Numbers n such that n^7 reversed is a prime.
%H G. C. Greubel, <a href="/A059208/b059208.txt">Table of n, a(n) for n = 1..14000</a>
%t Select[Range[2000], PrimeQ[ToExpression[StringReverse[ToString[#^7]]]] &]
%t Select[Range[1500],PrimeQ[IntegerReverse[#^7]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 29 2017 *)
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
