%I #8 Feb 23 2017 03:33:03
%S 11,13,17,19,23,43,47,73,103,107,109,113,197,199,229,233,283,313,317,
%T 353,463,467,619,647,827,829,859,863,883,887,1093,1097,1283,1303,1307,
%U 1429,1433,1453,1487,1489,1493,1613,1669,1699,1789,1873,1877,1879,1999
%N Greatest members r of prime triples (p,q,r) with p<q<r=p+6.
%C Union of A098412 and A098413;
%C a(n)=A007529(n)+6; either a(n)=A098414(n)+2 or a(n)=A098414(n)+4.
%H Harvey P. Dale, <a href="/A098415/b098415.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet</a>
%t Transpose[Select[Partition[Prime[Range[350]],3,1],#[[3]]- #[[1]] == 6&]][[3]] (* _Harvey P. Dale_, Mar 17 2015 *)
%o (PARI) is(n)=isprime(n) && isprime(n-6) && (isprime(n-2) || isprime(n-4)) \\ _Charles R Greathouse IV_, Feb 23 2017
%Y Cf. A098424, A098416, A098417.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Sep 07 2004
|