The submissions stack has been unacceptably high for several months now. Please voluntarily restrict your submissions and please help with the editing. (We don't want to have to impose further limits.)
%N Primes with maximal digit = 7.
%t Select[Prime[Range], Max[IntegerDigits[ # ]]==7&]
%A _Zak Seidov_, May 07 2005