A255596 Distinct-digit primes that are the concatenation of m and prime(m) for some number m.
23, 47, 613, 1237, 1759, 27103, 35149, 45197, 57269, 58271, 61283, 85439, 93487, 145829, 147853, 2371489, 3152087, 3902687, 4062791, 5614073, 5914327, 7405639, 8356421
Offset: 1
Examples
The last term is a(23) = 8356421 (prime) because all 7 digits are different and m=835 with 6421=prime(m).
Programs
-
Mathematica
Select[FromDigits[IntegerDigits@ #~Join~IntegerDigits[Prime@ #]] & /@ Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)