A384227 Smaller members p of sexy prime pairs (p,p+6) such that both p and p+6 are emirps.

31, 73, 107, 733, 1091, 1097, 1103, 1217, 1223, 1231, 3083, 3163, 3251, 3463, 3911, 7187, 7523, 7643, 7681, 9127, 9221, 9491, 9781, 10061, 10247, 10453, 10853, 10987, 11587, 11777, 11783, 11833, 11897, 11903, 11927, 11933, 11953, 12107, 12113, 12547, 12757

Offset: 1

Author

Emanuele Pace, Aug 26 2025

Keywords

• nonn
• base
• new

Crossrefs

Cf. A006567, A023201.

Programs

Mathematica

emirpQ[n_] := emirpQ[n] = n != IntegerReverse[n] && PrimeQ[n] && PrimeQ[IntegerReverse[n]]; Select[Range[13000], emirpQ[#] && emirpQ[# + 6] &] (* Amiram Eldar, Aug 26 2025 *)