A235160 Primes which have one or more occurrences of exactly eight different digits.
10234589, 10234759, 10234897, 10235647, 10235749, 10235867, 10236547, 10236857, 10237849, 10238467, 10238597, 10238647, 10238759, 10238957, 10239487, 10239587, 10239847, 10243567, 10243657, 10243759, 10243769, 10243867, 10243897, 10245397
Offset: 1
Links
- Colin Barker, Table of n, a(n) for n = 1..2000
Programs
-
Mathematica
Select[Prime[Range[664580,68*10^4]],Count[DigitCount[#],0]==2&] (* Harvey P. Dale, Apr 05 2019 *)
-
PARI
s=[]; forprime(n=10000000, 10250000, if(#vecsort(eval(Vec(Str(n))),,8)==8, s=concat(s, n))); s
Comments