[go: up one dir, main page]

login
A106112
Primes with minimal digit > 4.
1
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,1
MATHEMATICA
Select[Prime[Range[1000]], Min[IntegerDigits[ # ]]>4&]
CROSSREFS
Sequence in context: A082714 A300090 A324984 * A260831 A268433 A201109
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved