Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
%N Primes with maximal digit = 7.
%t Select[Prime[Range], Max[IntegerDigits[ # ]]==7&]
%A _Zak Seidov_, May 07 2005