A098412 Greatest members p of prime triples (p-6, p-4, p).

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

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

• nonn

Comments

Subsequence of A046117; a(n) = A073648(n) + 4 = A022004(n) + 6.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Eric Weisstein's World of Mathematics, Prime Triplet

Crossrefs

Cf. A098413, A098415.

Programs

Magma

[p: p in PrimesUpTo(6500)|IsPrime(p) and IsPrime(p-6) and IsPrime(p-4)]; // Vincenzo Librandi, Dec 26 2010

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 *)