A256339 Distinct-digit primes that are concatenation of prime(m) and m for some m.
53, 239, 6719, 7321, 4073561, 6257813, 6521843, 85271063
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[FromDigits[IntegerDigits[Prime@ #]~Join~IntegerDigits@ #] & /@ Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)
Comments