%I #5 Mar 30 2012 17:26:15
%S 19,29,59,79,83,89,97,109,139,149,179,181,191,193,197,199,229,239,269,
%T 281,283,293,349,359,379,383,389,397,409,419,439,449,479,487,491,499,
%U 509
%N Primes with maximal digit > 7.
%t Select[Prime[Range[100]], Max[IntegerDigits[ # ]]>7&]
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 07 2005
|