A236303 Prime numbers n such that replacing each digit d in decimal expansion of n with prime(d) produces a prime. Zeros are not allowed.

2, 3, 5, 7, 19, 59, 79, 167, 229, 347, 439, 449, 467, 487, 547, 569, 617, 727, 787, 859, 877, 967, 1289, 1399, 1549, 1619, 1699, 1747, 1777, 1879, 1997, 1999, 2129, 2297, 2417, 2437, 2447, 2647, 2659, 2687, 2699, 2729, 2819, 2857, 3119, 3137, 3167, 3229, 3347

Offset: 1

Author

Michel Lagneau, Apr 21 2014

Keywords

• nonn
• base

Examples

			347 is in the sequence because 347 becomes 5717 which is also prime, where 5717 is the concatenation (prime(3),prime(4),prime(7))= (5,7,17).
		

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A068492.

Programs

Mathematica

lst={}; f[n_]:=Block[{a=IntegerDigits[n], b="", k=1, l}, l=Length[a]; While[k