A106104 Primes with minimal digit = 4.

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

Author

Zak Seidov, May 07 2005

Keywords

• nonn
• base

Programs

Mathematica

Select[Prime[Range[800]], Min[IntegerDigits[ # ]]==4&]