A350363 Primes whose reversal is a ninth power.
23888027348153, 17571893445665616311, 3627487775963728773631, 5213075488148035940813, 232364835105859429802371, 1648344985192619771689693, 6522990445513252220198849, 6771520922071318266744521, 23295376285906990980268061, 29758574646480445207299379
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Union[(i=IntegerReverse)@Select[Range@1000^9,PrimeQ@i@#&]] (* Giorgos Kalogeropoulos, Jan 04 2022 *) Select[IntegerReverse/@(Range[1000]^9),PrimeQ]//Union (* Harvey P. Dale, Nov 27 2024 *)
-
PARI
flip(n)=fromdigits(Vecrev(digits(n))) \\ A004086 Set(select(isprime, vector(1000, n, flip(n^9)))) \\ adapted from A057699
-
Python
from sympy import isprime flip9 = (int(str(k**9)[::-1]) for k in range(1, 1000) if k%10) print(sorted(filter(isprime, flip9))) # Michael S. Branicky, Jan 02 2022