PROG
(MAGMAMagma) [ p: p in PrimesInInterval(3, 15000) | &+[ k[2]: k in Factorization(p-1) ] eq 2 and (IsPrime(p+2) or (q^2 eq p+2 and IsPrime(q) where q is Isqrt(p+2))) ]; // Klaus Brockhaus, Nov 03 2010
(MAGMAMagma) [ p: p in PrimesInInterval(3, 15000) | &+[ k[2]: k in Factorization(p-1) ] eq 2 and (IsPrime(p+2) or (q^2 eq p+2 and IsPrime(q) where q is Isqrt(p+2))) ]; // Klaus Brockhaus, Nov 03 2010
reviewed
approved
proposed
reviewed
editing
proposed
(MAGMA) [ p: p in PrimesInInterval(3, 15000) | &+[ k[2]: k in Factorization(p-1) ] eq 2 and (IsPrime(p+2) or (q^2 eq p+2 and IsPrime(q) where q is Isqrt(p+2))) ]; [_// _Klaus Brockhaus_, Nov 03 2010]
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Vincenzo Librandi, <a href="/A181602/b181602.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved