login
A106103
Primes with minimal digit = 3.
2
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,1
MATHEMATICA
Select[Prime[Range[200]], Min[IntegerDigits[ # ]]==3&]
CROSSREFS
Sequence in context: A116184 A037000 A042333 * A224471 A286637 A106996
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved