A057699 Primes whose reversal is a cube.

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

Author

G. L. Honaker, Jr., Oct 23 2000

Keywords

• base
• easy
• nonn

Links

• Zak Seidov and Chai Wah Wu, Table of n, a(n) for n = 1..28987 n = 1..1500 from Zak Seidov.

Crossrefs

Cf. A000040, A007488, A272692 (first differences).

Programs

Mathematica

Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/3) ], Print[ n ] ], {n, 1, 10^9} ]

PARI

flip(n)=fromdigits(Vecrev(digits(n)))
Set(select(isprime, vector(1000,n,flip(n^3)))) \\ Charles R Greathouse IV, Jun 07 2016

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