A382389 Numbers k such that k, prime(k) and primepi(reverse(prime(k))) are emirps (A006567).

7673, 9001, 12491, 17749, 31481, 75041, 93887, 95881, 102061, 104479, 112621, 113557, 118429, 139999, 722713, 743891, 749927, 999133, 1001941, 1086353, 1115071, 1165511, 1233907, 1861913, 1861973, 1881697, 1927903, 1972259

Offset: 1

Author

Ivan N. Ianakiev, Mar 23 2025

Keywords

• nonn
• base

Examples

			Take for example the two emirps 133963 and 369331. Their indices (in A000040) are 12491 and 31481, which are also emirps. So, those indices are terms of the present sequence.
		

Crossrefs

Cf. A006567 (supersequence).

Programs

Mathematica

emirpQ[n_]:=AllTrue[{n,IntegerReverse[n]},PrimeQ]&&!PalindromeQ[n];
Select[Prime[Range[10000]],AllTrue[{#,Prime[#],PrimePi[IntegerReverse[Prime[#]]]},emirpQ]&]