OFFSET
1,1
LINKS
Zak Seidov and Chai Wah Wu, Table of n, a(n) for n = 1..28987 n = 1..1500 from Zak Seidov.
MATHEMATICA
Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/3) ], Print[ n ] ], {n, 1, 10^9} ]
PROG
(Python)
from sympy import isprime
A057699_list = []
for i in range(10**6):
if i % 10:
p = int(str(i**3)[::-1])
if isprime(p):
A057699_list.append(p)
(PARI) flip(n)=fromdigits(Vecrev(digits(n)))
Set(select(isprime, vector(1000, n, flip(n^3)))) \\ Charles R Greathouse IV, Jun 07 2016
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
G. L. Honaker, Jr., Oct 23 2000
STATUS
approved