A036960 Primes containing only digits from the set (0,1,2,3,4,5,6).
2, 3, 5, 11, 13, 23, 31, 41, 43, 53, 61, 101, 103, 113, 131, 151, 163, 211, 223, 233, 241, 251, 263, 311, 313, 331, 353, 401, 421, 431, 433, 443, 461, 463, 503, 521, 523, 541, 563, 601, 613, 631, 641, 643, 653, 661, 1013, 1021, 1031, 1033, 1051, 1061, 1063
Offset: 1
Links
- James Maynard and Brady Haran, Primes without a 7, Numberphile video (2019)
Programs
-
Mathematica
Select[Prime[Range[200]],Max[IntegerDigits[#]]<7&] (* Harvey P. Dale, Feb 08 2019 *)
Extensions
Offset 1 from Michel Marcus, Oct 10 2019