This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A152426 #12 May 01 2013 21:10:56
%S A152426 13,17,29,31,43,47,59,67,71,79,83,97,103,107,113,127,131,137,139,151,
%T A152426 157,163,167,173,179,193,197,211,229,239,241,251,263,269,271,281,283,
%U A152426 293,307,311,313,317,331,347,349,359,367,379
%N A152426 Primes that have both prime digits (2,3,5,7) and nonprime digits (0,1,4,6,8,9).
%C A152426 See also A152427, a subsequence without zeros.
%t A152426 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 A152426 Cf. A019546, A034844, A087363, A092621, A092626, A152312, A152313, A152427.
%K A152426 base,easy,nonn
%O A152426 1,1
%A A152426 _Omar E. Pol_, Dec 03 2008
%E A152426 Edited by _Omar E. Pol_, Jul 04 2009, Jan 20 2011
%E A152426 Definition clarified by _N. J. A. Sloane_, Jul 05 2009