login
A178093
Larger of emirp pairs whose digital sums are also emirps (A178091).
3
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,1
LINKS
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, May 19 2010
EXTENSIONS
More terms from Amiram Eldar, Apr 30 2024
STATUS
approved