|
|
A058994
|
|
Numbers m such that 7^m reversed is prime.
|
|
5
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ If[ PrimeQ[ ToExpression[ StringReverse[ ToString[7^n] ] ] ], Print[n] ], {n, 1, 2500} ]
|
|
PROG
|
(Python)
from sympy import isprime
while k <= 10**3:
if isprime(int(str(m)[::-1])):
k += 1
(PARI) isok(m) = isprime(fromdigits(Vecrev(digits(7^m)))) \\ Mohammed Yaseen, Jul 20 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|