A059207 - OEIS

%I #8 Sep 07 2019 09:13:28

%S 16,49,82,85,95,107,145,152,160,178,262,265,301,323,332,338,389,461,

%T 478,490,497,559,578,646,673,679,721,731,757,820,850,950,988,1006,

%U 1037,1039,1070,1073,1081,1093,1106,1205,1228,1235,1255,1450,1468,1486,1493

%N Numbers n such that n^6 reversed is a prime.

%H G. C. Greubel, <a href="/A059207/b059207.txt">Table of n, a(n) for n = 1..16500</a>

%t Select[Range[1000], PrimeQ[ToExpression[StringReverse[ToString[#^6]]]] &]

%t Select[Range[1500],PrimeQ[IntegerReverse[#^6]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 07 2019 *)

%K nonn,base

%O 1,1

%A _Robert G. Wilson v_, Jan 16 2001