login
Primes with maximal digit 6.
7

%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