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

Links

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

Example

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

Mathematica

lst={}; f[n_]:=Block[{a=IntegerDigits[n], b="", k=1, l}, l=Length[a]; While[k<l+1, b=StringJoin[b, ToString[Prime[a[[k]]]]]; k++]; ToExpression[b]]; Do[If[PrimeQ[f[Prime[n]]], AppendTo[lst, Prime[n]]], {n, 1, 600}]; lst

Crossrefs

Cf. A068492.

Sequence in context: A065724 A235620 A289756 * A117315 A158473 A048420

Adjacent sequences: A236300 A236301 A236302 * A236304 A236305 A236306

Keyword

nonn,base

Author

Michel Lagneau, Apr 21 2014

Status

approved