OFFSET
1,1
COMMENTS
From the set of numbers that are both prime and emirp choose the smaller one of each pair (whenever more than one decimal digit is involved).
A002385 is subset of this sequence.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1000
EXAMPLE
31 does not appear since we have already seen 13.
MATHEMATICA
pp[n_] := Module[{nr=FromDigits[Reverse[IntegerDigits[n]]]}, If[PrimeQ[nr], Sort[{n, nr}]]]; Transpose[Rest[Union[pp/@Prime[Range[200]]]]][[1]] (* Harvey P. Dale, Dec 18 2010 *)
PROG
(Python)
from gmpy2 import next_prime, is_prime
A141263_list, p = [], 1
for _ in range(1, 10**4):
p = next_prime(p)
ps = int(str(p)[::-1])
if p <= ps and is_prime(ps):
A141263_list.append(int(p)) # Chai Wah Wu, Jun 11 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Jun 20 2008
STATUS
approved