A215927 - OEIS

%I #29 Sep 08 2022 08:46:03

%S 11,13,17,19,29,31,41,43,47,59,61,67,71,79,83,89,97,101,103,107,109,

%T 113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,

%U 211,229,239,241,251,263,269,271,281,283,293,307,311,313,317,331,347

%N Primes having at least one digit that is not prime.

%C Complement of A019546 within the primes A000040.

%e 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 23 is not in the sequence because both 2 and 3 are prime.

%e 29 is in the sequence because 9 is not prime (though 2 is).

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

%o (PARI) is_A215927(n)=isprime(n)&apply(x->!isprime(x),eval(Vec(Str(n)))) \\ - _M. F. Hasler_, Aug 27 2012

%o (Magma) [p: p in PrimesUpTo(500) | not Set(Intseq(p)) subset [2,3,5,7]]; // _Vincenzo Librandi_ Oct 25 2016

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

%K nonn,base

%O 1,1

%A _Luca Brigada Villa_, Aug 27 2012

%E a(55) corrected by _Vincenzo Librandi_, Oct 25 2016