A235155 Primes which have one or more occurrences of exactly three different digits.
103, 107, 109, 127, 137, 139, 149, 157, 163, 167, 173, 179, 193, 197, 239, 241, 251, 257, 263, 269, 271, 281, 283, 293, 307, 317, 347, 349, 359, 367, 379, 389, 397, 401, 409, 419, 421, 431, 439, 457, 461, 463, 467, 479, 487, 491, 503, 509, 521, 523, 541, 547
Offset: 1
Links
- Christopher M. Conrey, Table of n, a(n) for n = 1..10000 (first 2000 terms from Colin Barker)
- Christopher M. Conrey, MATLAB Program
Programs
-
MATLAB
%See Conrey Link
-
Mathematica
Select[Prime[Range[200]],Count[DigitCount[#],0]==7&] (* Harvey P. Dale, Jul 27 2020 *)
-
PARI
s=[]; forprime(n=100, 1000, if(#vecsort(eval(Vec(Str(n))),,8)==3, s=concat(s, n))); s
Comments