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,1

Links

Table of n, a(n) for n=1..36.

Mathematica

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

Crossrefs

Sequence in context: A200954 A126300 A012149 * A009086 A034779 A201090

Adjacent sequences: A106101 A106102 A106103 * A106105 A106106 A106107

Keyword

nonn,base

Author

Zak Seidov, May 07 2005

Status

approved