A106112 Primes with minimal digit > 4.
5, 7, 59, 67, 79, 89, 97, 557, 569, 577, 587, 599, 659, 677, 757, 769, 787, 797, 857, 859, 877, 887, 967, 977, 997, 5557, 5569, 5657, 5659, 5669, 5689, 5779, 5857, 5867, 5869, 5879, 5897, 5987, 6569, 6577, 6599, 6659, 6679, 6689, 6779, 6857, 6869, 6899, 6959
Offset: 1
Links
- Jason Bard, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[1000]], Min[IntegerDigits[ # ]]>4&]