%N Primes with nonprime smallest digit.
%C Nonprime digits in base 10 are 0, 1, 4, 6, 8 and 9.
%H Vincenzo Librandi, <a href="/A154981/b154981.txt">Table of n, a(n) for n = 1..1000</a>
%e 17 is in the sequence because its smallest digit is 1, which is not prime.
%e 19 is in the sequence because its smallest digit is 1, which is not prime (neither is 9, for that matter).
%e 23 is not in the sequence because both of its digits are prime.
%t Select[Prime[Range], Not[PrimeQ[Min[IntegerDigits[#]]]] &] (* _Alonso del Arte_, Mar 28 2014, based on _Harvey P. Dale_'s program for A155053 *)
%Y Cf. A019546, A020457, A141468.
%A _Juri-Stepan Gerasimov_, Jan 19 2009
%E Entries checked by _R. J. Mathar_, Mar 29 2010