login
A058995
Numbers m such that 13^m reversed is prime.
5
1, 379, 467, 479, 1325, 7144, 10311, 26079
OFFSET
1,2
MATHEMATICA
Do[ If[ PrimeQ[ ToExpression[ StringReverse[ ToString[13^n] ] ] ], Print[n] ], {n, 1, 2300} ]
Select[Range[1400], PrimeQ[IntegerReverse[13^#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 18 2020 *)
PROG
(Python)
from sympy import isprime
k, m, A058995_list = 1, 13, []
while k <= 10**3:
if isprime(int(str(m)[::-1])):
A058995_list.append(k)
k += 1
m *= 13 # Chai Wah Wu, Mar 09 2021
(PARI) isok(m) = isprime(fromdigits(Vecrev(digits(13^m)))) \\ Mohammed Yaseen, Jul 21 2022
CROSSREFS
Numbers m such that k^m reversed is prime: A057708 (k=2), A350441 (k=4), A058993 (k=5), A058994 (k=7), A350442 (k=8), this sequence (k=13).
Sequence in context: A341188 A020369 A142207 * A161612 A142752 A271265
KEYWORD
nonn,base,more
AUTHOR
Robert G. Wilson v, Jan 17 2001
EXTENSIONS
a(6)-a(7) from Chai Wah Wu, Mar 09 2021
a(8) from Michael S. Branicky, Apr 01 2023
STATUS
approved