%I #6 Mar 30 2012 17:26:15
%S 61,163,263,461,463,563,601,613,631,641,643,653,661,1061,1063,1163,
%T 1361,1601,1613,1621,1663,2063,2161,2621,2633,2663,3061,3163,3361,
%U 3461,3463,3613,3623,3631,3643,4261,4363,4463,4561,4603,4621,4643,4651,4663,5261
%N Primes with maximal digit 6.
%H B. D. Swan, <a href="/A106096/b106096.txt">Table of n, a(n) for n=1,...,30000</a>
%t Select[Prime[Range[300]], Max[IntegerDigits[ # ]]==6&]
%K nonn,base,easy
%O 1,1
%A _Zak Seidov_, May 07 2005