|
%I #8 Apr 03 2023 10:36:12
%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 Harvey P. Dale, <a href="/A178091/b178091.txt">Table of n, a(n) for n = 1..1000</a>
%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
|
