|
|
A059000
|
|
Primes whose reversal is a fifth power.
|
|
3
|
|
|
23, 4201, 102658511, 344800741, 39715342481, 70496383033, 869910021839, 998699567381, 3457914828521, 3487946075153, 5265190686031, 5786421085169, 7020715917491, 9432574158041, 9925883645611, 9987727089187, 23802566907811, 23888027348153, 34401855516071
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/5) ], Print[ n ] ], {n, 1, 10^16} ]
|
|
PROG
|
(Python)
from sympy import isprime
for i in range(10**6):
if i % 10:
p = int(str(i**5)[::-1])
if isprime(p):
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|