|
|
A059008
|
|
Numbers n such that n^3 reversed is a prime.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
52 is in the sequence because the reverse of 52^3 is 806041 and it is a prime. - Indranil Ghosh, Feb 10 2017
|
|
MATHEMATICA
|
Select[ Range[ 1000 ], PrimeQ[ ToExpression[ StringReverse[ ToString[ #^3 ] ] ] ] & ]
Select[Range[1000], PrimeQ[IntegerReverse[#^3]]&] (* Harvey P. Dale, Dec 20 2023 *)
|
|
PROG
|
(Magma) [n: n in [1..800] | IsPrime(Seqint(Reverse(Intseq(n^3))))]; // Marius A. Burtea, Jan 12 2019
(PARI) isok(n) = isprime(fromdigits(Vecrev(digits(n^3)))); \\ Michel Marcus, Jan 12 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|