login
A098412
Greatest members p of prime triples (p-6, p-4, p).
10
11, 17, 23, 47, 107, 113, 197, 233, 317, 353, 467, 647, 827, 863, 887, 1097, 1283, 1307, 1433, 1487, 1493, 1613, 1877, 2003, 2087, 2243, 2273, 2663, 2693, 3257, 3467, 3533, 3677, 3923, 4007, 4133, 4523, 4643, 4793, 4937, 4973, 5237, 5483, 5507, 5657, 6203
OFFSET
1,1
COMMENTS
Subsequence of A046117; a(n) = A073648(n) + 4 = A022004(n) + 6.
LINKS
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
Sequence in context: A094524 A243817 A377174 * A261918 A136342 A126609
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 07 2004
STATUS
approved