login
A106104
Primes with minimal digit = 4.
1
47, 449, 457, 467, 479, 487, 499, 547, 647, 947, 4447, 4457, 4547, 4549, 4567, 4597, 4649, 4657, 4679, 4759, 4787, 4789, 4799, 4877, 4889, 4957, 4967, 4969, 4987, 4999, 5449, 5477, 5479, 5647, 5749, 5849
OFFSET
1,1
MATHEMATICA
Select[Prime[Range[800]], Min[IntegerDigits[ # ]]==4&]
CROSSREFS
Sequence in context: A200954 A126300 A012149 * A009086 A034779 A201090
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved