OFFSET
1,2
MATHEMATICA
Do[ If[ PrimeQ[ ToExpression[ StringReverse[ ToString[5^n] ] ] ], Print[n] ], {n, 1, 3000} ]
PROG
(Python)
from sympy import isprime
k, m, A058993_list = 1, 5, []
while k <= 10**3:
if isprime(int(str(m)[::-1])):
A058993_list.append(k)
k += 1
m *= 5 # Chai Wah Wu, Mar 09 2021
(PARI) isok(m) = isprime(fromdigits(Vecrev(digits(5^m)))) \\ Mohammed Yaseen, Jul 20 2022
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Robert G. Wilson v, Jan 17 2001
EXTENSIONS
a(12)-a(14) from Michael S. Branicky, Apr 01 2023
STATUS
approved