A106111 Primes having only {6, 7, 8, 9} as digits.
7, 67, 79, 89, 97, 677, 769, 787, 797, 877, 887, 967, 977, 997, 6679, 6689, 6779, 6869, 6899, 6967, 6977, 6997, 7669, 7687, 7699, 7789, 7867, 7877, 7879, 8669, 8677, 8689, 8699, 8779, 8867, 8887, 8969, 8999, 9677, 9679, 9689, 9697, 9767, 9769, 9787, 9887
Offset: 1
Links
Programs
-
Mathematica
Select[Prime[Range[1000]], Min[IntegerDigits[ # ]]>5&]
Extensions
More terms from Vincenzo Librandi, May 22 2010