%I #10 Jul 23 2020 13:53:55
%S 31,71,73,97,311,701,733,743,751,761,907,937,941,953,967,971,983,991,
%T 1201,1301,1321,1511,1601,1741,1811,1831,1901,3011,3121,3191,3203,
%U 3221,3251,3271,3301,3371,3391,3433,3511,3541,3571,3613,3643,3733,3803,3821
%N Larger emirps (primes whose digit reversal is a lesser prime).
%H Harvey P. Dale, <a href="/A109309/b109309.txt">Table of n, a(n) for n = 1..1000</a>
%t dr[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Select[Prime[Range[1000]], PrimeQ[dr[ # ]]&&dr[ # ]<#&]
%t Select[Prime[Range[600]],PrimeQ[IntegerReverse[#]]&&#>IntegerReverse[#]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 23 2020 *)
%Y Cf. A006567 Emirps (primes whose digit reversal is a different prime), A109308 Lesser emirps (primes whose digit reversal is a larger prime).
%K base,nonn
%O 1,1
%A _Zak Seidov_, Jun 25 2005
|