A106103 Primes with minimal digit = 3.

3, 37, 43, 53, 73, 83, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 433, 439, 443, 463, 563, 593, 643, 653, 673, 683, 733, 739, 743, 773, 839, 853, 863, 883, 937, 953, 983

Offset: 1

Author

Zak Seidov, May 07 2005

Keywords

• nonn
• base

Programs

Mathematica

Select[Prime[Range[200]], Min[IntegerDigits[ # ]]==3&]