OFFSET
1,1
COMMENTS
The last term is a(8) = 85271063 (prime) because all 8 digits are different and m=1063 with 8527=prime(m).
MATHEMATICA
Select[FromDigits[IntegerDigits[Prime@ #]~Join~IntegerDigits@ #] & /@
Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Zak Seidov, Mar 25 2015
STATUS
approved