|
%I #7 Nov 21 2013 12:49:31
%S 3,5,7,11,13,17,19,31,37,41,43,53,59,61,71,73,79,83,97,113,127,131,
%T 137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,241,251,
%U 271,281,311,313,317,331,337,347,349,353,359,367,373,379,383,389,397,419
%N Primes with odd smallest digit.
%t Select[Prime[Range[100]],OddQ[Min[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Apr 29 2011 *)
%Y Cf. A000040.
%K nonn,base
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 19 2009
%E 353 and 359 inserted by _R. J. Mathar_, Mar 29 2010
|
