A058996 Primes whose reversal is a fourth power.

61, 61483, 123031, 125329, 5260051, 14854831, 18005983, 61277761, 63367741, 127009213, 163740361, 526098739, 639360181, 639714223, 1088352997, 1808902273, 10007631583, 10278214831, 14838314173, 16121301661

Offset: 1

Author

Robert G. Wilson v, Jan 16 2001

Keywords

• nonn
• base

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..22582

Crossrefs

Cf. A007488.

Programs

Mathematica

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

Python

from sympy import isprime
A058996_list = []
for i in range(10**6):
    if i % 10:
        p = int(str(i**4)[::-1])
        if isprime(p):
            A058996_list.append(p)
A058996_list = sorted(A058996_list) # Chai Wah Wu, Jun 02 2016