A059208 Numbers n such that n^7 reversed is a prime.
2, 20, 29, 41, 71, 76, 79, 133, 151, 152, 193, 200, 257, 268, 290, 359, 377, 379, 382, 389, 410, 493, 518, 544, 607, 710, 739, 760, 773, 784, 790, 794, 964, 1006, 1019, 1024, 1049, 1178, 1217, 1330, 1336, 1339, 1409, 1427, 1442, 1448, 1456, 1481, 1492
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..14000
Programs
-
Mathematica
Select[Range[2000], PrimeQ[ToExpression[StringReverse[ToString[#^7]]]] &] Select[Range[1500],PrimeQ[IntegerReverse[#^7]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 29 2017 *)