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,1

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.

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

Crossrefs

Cf. A006567, A178092, A178093.

Sequence in context: A045230 A180551 A096704 * A178092 A140035 A007356

Adjacent sequences: A178088 A178089 A178090 * A178092 A178093 A178094

Keyword

nonn,base

Author

Lekraj Beedassy, May 19 2010

Status

approved