A215927 Primes having at least one digit that is not prime.
11, 13, 17, 19, 29, 31, 41, 43, 47, 59, 61, 67, 71, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 229, 239, 241, 251, 263, 269, 271, 281, 283, 293, 307, 311, 313, 317, 331, 347
Offset: 1
Examples
19 is in the sequence because neither of its two digits is prime, 1 being a unit and 9 being the square of 3. 23 is not in the sequence because both 2 and 3 are prime. 29 is in the sequence because 9 is not prime (though 2 is).
Programs
-
Magma
[p: p in PrimesUpTo(500) | not Set(Intseq(p)) subset [2,3,5,7]]; // Vincenzo Librandi Oct 25 2016
-
Mathematica
Select[Prime[Range[100]], Complement[IntegerDigits[#], {2, 3, 5, 7}] != {} &] (* Alonso del Arte, Aug 27 2012 *) -
PARI
is_A215927(n)=isprime(n)&apply(x->!isprime(x),eval(Vec(Str(n)))) \\ - M. F. Hasler, Aug 27 2012
Extensions
a(55) corrected by Vincenzo Librandi, Oct 25 2016
Comments