A178093 Larger of emirp pairs whose digital sums are also emirps (A178091).

733, 751, 953, 971, 1741, 1831, 3271, 3433, 3541, 3613, 3851, 7253, 7321, 7433, 7523, 7901, 9013, 9103, 9161, 9341, 9521, 9769, 9787, 9967, 13711, 14431, 14831, 15241, 15511, 15601, 15731, 16451, 17041, 18701, 19421, 30271, 30491, 30851, 31081, 31481, 31531, 32341

Offset: 1

Author

Lekraj Beedassy, May 19 2010

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A109309, A178091, A178092.

Programs

Mathematica

emirpQ[n_] := n != IntegerReverse[n] && PrimeQ[n] && PrimeQ[IntegerReverse[n]]; q[n_] := emirpQ[DigitSum[n]] && n > IntegerReverse[n] && emirpQ[n]; Select[Range[10^5], q] (* Amiram Eldar, Apr 30 2024 *)

Extensions

More terms from Amiram Eldar, Apr 30 2024