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

Links

Table of n, a(n) for n=1..23.

Example

The last term is a(23) = 8356421 (prime) because all 7 digits are different and m=835 with 6421=prime(m).

Mathematica

Select[FromDigits[IntegerDigits@ #~Join~IntegerDigits[Prime@ #]] & /@
Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)

Crossrefs

Cf. A073643, A074665, A074667, A074669, A074671, A074673, A074675, A160402, A256339.

Sequence in context: A216569 A042054 A084667 * A157358 A158238 A328799

Adjacent sequences: A255593 A255594 A255595 * A255597 A255598 A255599

Keyword

nonn,base,fini,full

Author

Zak Seidov, Mar 25 2015

Status

approved