|
|
A057699
|
|
Primes whose reversal is a cube.
|
|
5
|
|
|
521, 806041, 969407, 1393939, 2303461, 3989683, 4831037, 5783273, 8081153, 8485181, 11520991, 15231851, 23206301, 25578253, 29925251, 32296051, 48762541, 52182343, 57369149, 61277761, 67134511, 67954643, 74825299
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/3) ], Print[ n ] ], {n, 1, 10^9} ]
|
|
PROG
|
(Python)
from sympy import isprime
for i in range(10**6):
if i % 10:
p = int(str(i**3)[::-1])
if isprime(p):
(PARI) flip(n)=fromdigits(Vecrev(digits(n)))
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|