A152426 - OEIS

%I #12 May 01 2013 21:10:56

%S 13,17,29,31,43,47,59,67,71,79,83,97,103,107,113,127,131,137,139,151,

%T 157,163,167,173,179,193,197,211,229,239,241,251,263,269,271,281,283,

%U 293,307,311,313,317,331,347,349,359,367,379

%N Primes that have both prime digits (2,3,5,7) and nonprime digits (0,1,4,6,8,9).

%C See also A152427, a subsequence without zeros.

%t okQ[n_] := Module[{d=Union[IntegerDigits[n]]}, Length[Intersection[d, {2,3,5,7}]]>0 && Length[Intersection[d, {0,1,4,6,8,9}]]>0]; Select[Prime[Range[100]], okQ] (* _T. D. Noe_, Jan 20 2011 *)

%Y Cf. A019546, A034844, A087363, A092621, A092626, A152312, A152313, A152427.

%K base,easy,nonn

%O 1,1

%A _Omar E. Pol_, Dec 03 2008

%E Edited by _Omar E. Pol_, Jul 04 2009, Jan 20 2011

%E Definition clarified by _N. J. A. Sloane_, Jul 05 2009