OFFSET
1,1
COMMENTS
The first term having a repeated digit is 100237.
There are 2,529 5-digit primes in the sequence. Harvey P. Dale, Feb 06 2015
LINKS
Colin Barker, Table of n, a(n) for n = 1..2500
MATHEMATICA
Select[Prime[Range[1255, 1355]], Max[DigitCount[#]]==1&] (* The program is only accurate for 5-digit primes, of which there are 2529 satisfying the definition *) (* Harvey P. Dale, Feb 06 2015 *)
PROG
(PARI) s=[]; forprime(n=10000, 13000, if(#vecsort(eval(Vec(Str(n))), , 8)==5, s=concat(s, n))); s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 04 2014
STATUS
approved