|
%I #3 Mar 30 2012 17:26:15
%S 47,449,457,467,479,487,499,547,647,947,4447,4457,4547,4549,4567,4597,
%T 4649,4657,4679,4759,4787,4789,4799,4877,4889,4957,4967,4969,4987,
%U 4999,5449,5477,5479,5647,5749,5849
%N Primes with minimal digit = 4.
%t Select[Prime[Range[800]], Min[IntegerDigits[ # ]]==4&]
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 07 2005
|
