The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #23 Mar 26 2015 01:50:03
%S 23,47,613,1237,1759,27103,35149,45197,57269,58271,61283,85439,93487,
%T 145829,147853,2371489,3152087,3902687,4062791,5614073,5914327,
%U 7405639,8356421
%N Distinct-digit primes that are the concatenation of m and prime(m) for some number m.
%e The last term is a(23) = 8356421 (prime) because all 7 digits are different and m=835 with 6421=prime(m).
%t Select[FromDigits[IntegerDigits@ #~Join~IntegerDigits[Prime@ #]] & /@
%t Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* _Michael De Vlieger_, Mar 25 2015 *)
%Y Cf. A073643, A074665, A074667, A074669, A074671, A074673, A074675, A160402, A256339.
%K nonn,base,fini,full
%O 1,1
%A _Zak Seidov_, Mar 25 2015