A178091 Emirps whose digital sums are also emirps.

157, 179, 337, 359, 733, 751, 953, 971, 1097, 1237, 1259, 1381, 1439, 1453, 1471, 1583, 1619, 1723, 1741, 1831, 3019, 3109, 3163, 3257, 3271, 3343, 3347, 3433, 3527, 3541, 3613, 3851, 7253, 7321, 7433, 7523, 7699, 7879, 7901, 9013, 9103, 9161, 9341, 9521, 9679, 9769, 9787, 9967

Offset: 1

Author

Lekraj Beedassy, May 19 2010

Keywords

• nonn
• base

Comments

Palindromic primes are not allowed, nor are palindromic digital sums of primes. - Harvey P. Dale, Feb 23 2014

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
• Silva, Prime Curios, Entry 157.

Crossrefs

Cf. A006567, A178092, A178093.

Programs

Mathematica

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 *)