|
%I #10 Mar 27 2015 08:42:09
%S 53,239,6719,7321,4073561,6257813,6521843,85271063
%N Distinct-digit primes that are concatenation of prime(m) and m for some m.
%C The last term is a(8) = 85271063 (prime) because all 8 digits are different and m=1063 with 8527=prime(m).
%t Select[FromDigits[IntegerDigits[Prime@ #]~Join~IntegerDigits@ #] & /@
%t Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* _Michael De Vlieger_, Mar 25 2015 *)
%Y Subsequence of A029743 (distinct-digit primes).
%Y Cf. A073643, A074665, A074667, A074669, A074671, A074673, A074675, A160402.
%K nonn,base,fini,full
%O 1,1
%A _Zak Seidov_, Mar 25 2015
|
