OFFSET
1,1
EXAMPLE
a(3) = 125329 is a term because it is prime and its reversal 923521 = 31^4 where 31 is an emirp.
MAPLE
revdigs:= proc(n) local L, i; L:= convert(n, base, 10); add(L[-i]*10^(i-1), i=1..nops(L)) end proc:
isemirp:= proc(n) local r; if not isprime(n) then return false fi;
r:= revdigs(n); r <> n and isprime(r) end proc:
E:= select(isemirp, [seq(i, i=11..10^5, 2)]):
EP:= map(proc(x) local i; seq(x^i, i=2..floor(log[x](10^10))) end proc, E):
EPR:= map(revdigs, EP):
sort(select(isprime, EPR));
CROSSREFS
KEYWORD
AUTHOR
J. M. Bergot and Robert Israel, Jun 17 2021
STATUS
approved