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 A215927 #29 Sep 08 2022 08:46:03 %S A215927 11,13,17,19,29,31,41,43,47,59,61,67,71,79,83,89,97,101,103,107,109, %T A215927 113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199, %U A215927 211,229,239,241,251,263,269,271,281,283,293,307,311,313,317,331,347 %N A215927 Primes having at least one digit that is not prime. %C A215927 Complement of A019546 within the primes A000040. %e A215927 19 is in the sequence because neither of its two digits is prime, 1 being a unit and 9 being the square of 3. %e A215927 23 is not in the sequence because both 2 and 3 are prime. %e A215927 29 is in the sequence because 9 is not prime (though 2 is). %t A215927 Select[Prime[Range[100]], Complement[IntegerDigits[#], {2, 3, 5, 7}] != {} &] (* _Alonso del Arte_, Aug 27 2012 *) %o A215927 (PARI) is_A215927(n)=isprime(n)&apply(x->!isprime(x),eval(Vec(Str(n)))) \\ - _M. F. Hasler_, Aug 27 2012 %o A215927 (Magma) [p: p in PrimesUpTo(500) | not Set(Intseq(p)) subset [2,3,5,7]]; // _Vincenzo Librandi_ Oct 25 2016 %Y A215927 Cf. A000040, A019546, A034844, A033274, A152313, A141409. %K A215927 nonn,base %O A215927 1,1 %A A215927 _Luca Brigada Villa_, Aug 27 2012 %E A215927 a(55) corrected by _Vincenzo Librandi_, Oct 25 2016