PROG
(MAGMAMagma) [n:n in PrimesUpTo(400)| not IsPrime(Seqint(Intseq(n), 11))]; // Marius A. Burtea, Jun 30 2019
(MAGMAMagma) [n:n in PrimesUpTo(400)| not IsPrime(Seqint(Intseq(n), 11))]; // Marius A. Burtea, Jun 30 2019
reviewed
approved
proposed
reviewed
editing
proposed
Select[Prime@Range@80, ! PrimeQ@FromDigits[IntegerDigits@#, 11] &] (* Vincenzo Librandi, Jul 01 2019 *)
proposed
editing
editing
proposed
(PARI) isok(p) = isprime(p) && (d=digits(p)) && !isprime(fromdigits(d, 11)); \\ Michel Marcus, Jun 30 2019
proposed
editing
editing
proposed
Marius A. Burtea, <a href="/A091923/b091923.txt">Table of n, a(n) for n = 1..1045</a>
(MAGMA) [n:n in PrimesUpTo(400)| not IsPrime(Seqint(Intseq(n), 11))]; // Marius A. Burtea, Jun 30 2019
approved
editing
editing
approved