login
Primes which have one or more occurrences of exactly five different digits.
5

%I #16 Feb 06 2015 20:19:01

%S 10243,10247,10253,10259,10267,10273,10289,10357,10369,10427,10429,

%T 10453,10457,10459,10463,10487,10529,10567,10589,10597,10627,10639,

%U 10657,10687,10723,10729,10739,10753,10789,10837,10847,10853,10859,10867,10937,10957

%N Primes which have one or more occurrences of exactly five different digits.

%C The first term having a repeated digit is 100237.

%C There are 2,529 5-digit primes in the sequence. _Harvey P. Dale_, Feb 06 2015

%H Colin Barker, <a href="/A235157/b235157.txt">Table of n, a(n) for n = 1..2500</a>

%t 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 *)

%o (PARI) s=[]; forprime(n=10000, 13000, if(#vecsort(eval(Vec(Str(n))),,8)==5, s=concat(s, n))); s

%Y Cf. A235154-A235156, A235158-A235161.

%Y Cf. A074671.

%K nonn,base

%O 1,1

%A _Colin Barker_, Jan 04 2014