|
%I #8 Sep 24 2017 20:07:12
%S 2,4,20,40,41,43,113,127,179,200,248,259,263,265,269,287,323,379,395,
%T 400,410,412,416,430,437,443,512,514,626,685,695,721,956,983,1009,
%U 1027,1042,1066,1079,1105,1112,1124,1130,1270,1283,1511,1552,1622,1664,1688
%N Numbers n such that n^5 reversed is a prime.
%H G. C. Greubel, <a href="/A059206/b059206.txt">Table of n, a(n) for n = 1..20000</a>
%t Select[Range[1000], PrimeQ[ToExpression[StringReverse[ToString[#^5]]]] &]
%t Select[Range[2000],PrimeQ[IntegerReverse[#^5]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 24 2017 *)
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
|
