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,1

Comments

Complement of A019546 within the primes A000040.

Links

Table of n, a(n) for n=1..55.

Example

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).

Mathematica

Select[Prime[Range[100]], Complement[IntegerDigits[#], {2, 3, 5, 7}] != {} &] (* Alonso del Arte, Aug 27 2012 *)

Prog

(PARI) is_A215927(n)=isprime(n)&apply(x->!isprime(x), eval(Vec(Str(n)))) \\ - M. F. Hasler, Aug 27 2012
(Magma) [p: p in PrimesUpTo(500) | not Set(Intseq(p)) subset [2, 3, 5, 7]]; // Vincenzo Librandi Oct 25 2016

Crossrefs

Cf. A000040, A019546, A034844, A033274, A152313, A141409.

Sequence in context: A337803 A097358 A230462 * A229947 A132247 A186811

Adjacent sequences: A215924 A215925 A215926 * A215928 A215929 A215930

Keyword

nonn,base

Author

Luca Brigada Villa, Aug 27 2012

Extensions

a(55) corrected by Vincenzo Librandi, Oct 25 2016

Status

approved