OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Mohammed Yaseen, Dec 27 2021
STATUS
approved