login
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
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)
A057699_list = sorted(A057699_list) # Chai Wah Wu, Jun 02 2016
(PARI) flip(n)=fromdigits(Vecrev(digits(n)))
Set(select(isprime, vector(1000, n, flip(n^3)))) \\ Charles R Greathouse IV, Jun 07 2016
CROSSREFS
Cf. A000040, A007488, A272692 (first differences).
Sequence in context: A173656 A015291 A028484 * A033525 A138647 A045050
KEYWORD
base,easy,nonn
AUTHOR
G. L. Honaker, Jr., Oct 23 2000
STATUS
approved