%I #14 Dec 20 2023 19:03:27
%S 5,50,52,89,118,122,152,155,157,194,211,218,226,244,247,248,251,256,
%T 271,325,326,328,413,452,455,463,466,467,481,485,487,491,499,500,503,
%U 520,521,523,526,541,544,547,563,571,581,584,685,686,701,707,716,721
%N Numbers n such that n^3 reversed is a prime.
%H Indranil Ghosh, <a href="/A059008/b059008.txt">Table of n, a(n) for n = 1..1023</a>
%e 52 is in the sequence because the reverse of 52^3 is 806041 and it is a prime. - _Indranil Ghosh_, Feb 10 2017
%t Select[ Range[ 1000 ], PrimeQ[ ToExpression[ StringReverse[ ToString[ #^3 ] ] ] ] & ]
%t Select[Range[1000],PrimeQ[IntegerReverse[#^3]]&] (* _Harvey P. Dale_, Dec 20 2023 *)
%o (Magma) [n: n in [1..800] | IsPrime(Seqint(Reverse(Intseq(n^3))))]; // _Marius A. Burtea_, Jan 12 2019
%o (PARI) isok(n) = isprime(fromdigits(Vecrev(digits(n^3)))); \\ _Michel Marcus_, Jan 12 2019
%Y Cf. A007488.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001