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