OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime Triplet.
MAPLE
for a from 3 by 2 to 10000 do
if `and`(isprime(a), isprime(a+2), isprime(a+8)) then print(a); end if;
end do;
# Matt C. Anderson, Jul 26 2015
MATHEMATICA
Select[Range@ 5680, AllTrue[{#, # + 2, # + 8}, PrimeQ] &] (* Michael De Vlieger, Jul 24 2015, Version 10 *)
Select[Prime[Range[800]], And@@PrimeQ[{# + 2, # + 8}] &] (* Vincenzo Librandi, Jul 27 2015 *)
PROG
(Magma) [p: p in PrimesUpTo(6000) |IsPrime(p+2) and IsPrime(p+8)]; // Vincenzo Librandi, Jul 27 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved