%I

%S 7,17,37,47,67,71,73,107,127,137,157,167,173,227,257,271,277,307,317,

%T 337,347,367,373,457,467,547,557,571,577,607,617,647,673,677,701,727,

%U 733,743,751,757,761,773,1117,1171,1217,1237,1277,1307,1327,1367

%N Primes with maximal digit = 7.

%t Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==7&]

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 07 2005