OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Prime Triplet
MAPLE
K:=10^7: # to get all terms <= K.
for n from 1 by 2 to K do; if isprime(n-6) and isprime(n-4) and isprime(n) then print(n) else fi; od; # Muniru A Asiru, Aug 06 2017
MATHEMATICA
Select[Table[Prime[n], {n, 1000}], PrimeQ[# - 4] && PrimeQ[# - 6] &] (* Vladimir Joseph Stephan Orlovsky, Jun 19 2011 *)
Select[Partition[Prime[Range[1000]], 3, 1], Differences[#]=={2, 4}&][[All, 3]] (* Harvey P. Dale, Sep 23 2017 *)
PROG
(Magma)[p: p in PrimesUpTo(6500)|IsPrime(p) and IsPrime(p-6) and IsPrime(p-4)]; // Vincenzo Librandi, Dec 26 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 07 2004
STATUS
approved