|
%I #9 Dec 29 2016 17:33:02
%S 8,23,65,80,115,139,155,230,239,241,332,343,409,431,442,542,575,577,
%T 581,647,650,667,668,752,761,787,791,793,794,800,884,1031,1051,1054,
%U 1150,1165,1187,1319,1328,1336,1355,1390,1406,1550,1555,1567,1706,1711
%N Numbers n such that n^8 reversed is a prime.
%H G. C. Greubel, <a href="/A059209/b059209.txt">Table of n, a(n) for n = 1..13000</a>
%t Select[Range[2000], PrimeQ[ToExpression[StringReverse[ToString[#^8]]]] &]
%t Select[Range[1800],PrimeQ[IntegerReverse[#^8]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 13 2016 *)
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
|
