|
%I #19 Apr 05 2019 10:57:45
%S 10234589,10234759,10234897,10235647,10235749,10235867,10236547,
%T 10236857,10237849,10238467,10238597,10238647,10238759,10238957,
%U 10239487,10239587,10239847,10243567,10243657,10243759,10243769,10243867,10243897,10245397
%N Primes which have one or more occurrences of exactly eight different digits.
%C The first term having a repeated digit is 100234657.
%H Colin Barker, <a href="/A235160/b235160.txt">Table of n, a(n) for n = 1..2000</a>
%t Select[Prime[Range[664580,68*10^4]],Count[DigitCount[#],0]==2&] (* _Harvey P. Dale_, Apr 05 2019 *)
%o (PARI) s=[]; forprime(n=10000000, 10250000, if(#vecsort(eval(Vec(Str(n))),,8)==8, s=concat(s, n))); s
%Y Cf. A074665, A235154-A235159, A235161.
%K nonn,base
%O 1,1
%A _Colin Barker_, Jan 04 2014
|
