A178093 Larger of emirp pairs whose digital sums are also emirps (A178091).

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A109309, A178091, A178092.

Sequence in context: A255798 A044988 A288882 * A143726 A180919 A166607

Adjacent sequences: A178090 A178091 A178092 * A178094 A178095 A178096

Keyword

nonn,base,changed

Author

Lekraj Beedassy, May 19 2010

Extensions

More terms from Amiram Eldar, Apr 30 2024

Status

approved