110 people attended OEIS-50 (videos, suggestions); annual fundraising drive to start soon (donate); editors, please edit! (stack is over 300), your editing is more valuable than any donation.
%N Primes with maximal digit = 7.
%t Select[Prime[Range], Max[IntegerDigits[ # ]]==7&]
%A _Zak Seidov_, May 07 2005