login
Emirps whose digital sums are also emirps.
3

%I #15 Apr 30 2024 01:47:50

%S 157,179,337,359,733,751,953,971,1097,1237,1259,1381,1439,1453,1471,

%T 1583,1619,1723,1741,1831,3019,3109,3163,3257,3271,3343,3347,3433,

%U 3527,3541,3613,3851,7253,7321,7433,7523,7699,7879,7901,9013,9103,9161,9341,9521,9679,9769,9787,9967

%N Emirps whose digital sums are also emirps.

%C Palindromic primes are not allowed, nor are palindromic digital sums of primes. - _Harvey P. Dale_, Feb 23 2014

%H Amiram Eldar, <a href="/A178091/b178091.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%H Silva, Prime Curios, <a href="https://t5k.org/curios/cpage/17498.html">Entry 157</a>.

%t dseQ[n_]:=Module[{idn=IntegerDigits[n],ds},ds=IntegerDigits[Total[idn]];idn!=Reverse[idn]&&ds!=Reverse[ds] && And@@PrimeQ[{FromDigits[ Reverse[ idn]],FromDigits[ds],FromDigits[Reverse[ds]]}]]; Select[Prime[Range[ 1300]],dseQ] (* _Harvey P. Dale_, Feb 23 2014 *)

%Y Cf. A006567, A178092, A178093.

%K nonn,base

%O 1,1

%A _Lekraj Beedassy_, May 19 2010