A059008 Numbers n such that n^3 reversed is a prime.
5, 50, 52, 89, 118, 122, 152, 155, 157, 194, 211, 218, 226, 244, 247, 248, 251, 256, 271, 325, 326, 328, 413, 452, 455, 463, 466, 467, 481, 485, 487, 491, 499, 500, 503, 520, 521, 523, 526, 541, 544, 547, 563, 571, 581, 584, 685, 686, 701, 707, 716, 721
Offset: 1
Examples
52 is in the sequence because the reverse of 52^3 is 806041 and it is a prime. - _Indranil Ghosh_, Feb 10 2017
Links
- Indranil Ghosh, Table of n, a(n) for n = 1..1023
Crossrefs
Cf. A007488.
Programs
-
Magma
[n: n in [1..800] | IsPrime(Seqint(Reverse(Intseq(n^3))))]; // Marius A. Burtea, Jan 12 2019
-
Mathematica
Select[ Range[ 1000 ], PrimeQ[ ToExpression[ StringReverse[ ToString[ #^3 ] ] ] ] & ] Select[Range[1000],PrimeQ[IntegerReverse[#^3]]&] (* Harvey P. Dale, Dec 20 2023 *)
-
PARI
isok(n) = isprime(fromdigits(Vecrev(digits(n^3)))); \\ Michel Marcus, Jan 12 2019