cp's OEIS Frontend

A046120 Largest member of a sexy prime triple; value of p+12 where p, p+6 and p+12 are all prime, but p+18 is not.

%I A046120 #22 Feb 16 2025 08:32:38
%S A046120 19,29,43,59,79,109,113,163,179,239,269,283,359,379,569,599,619,659,
%T A046120 739,953,983,1109,1129,1193,1229,1289,1303,1373,1439,1459,1499,1619,
%U A046120 1669,1759,1789,1879,1913,1999,2143,2293,2389,2423,2689,2699,2719
%N A046120 Largest member of a sexy prime triple; value of p+12 where p, p+6 and p+12 are all prime, but p+18 is not.
%C A046120 If a sexy prime triple happens to include the last 3 members of a sexy prime quadruple, this sequence will contain the sexy prime triple's largest member; e.g., a(4)=59 is the largest member of the sexy prime triple (47, 53, 59), but is the fourth member of the sexy prime quadruple (41, 47, 53, 59). - _Daniel Forgues_, Aug 05 2009
%H A046120 Harvey P. Dale, <a href="/A046120/b046120.txt">Table of n, a(n) for n = 1..1000</a>
%H A046120 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SexyPrimes.html">Sexy Primes</a>. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- _N. J. A. Sloane_, Mar 07 2021].
%F A046120 a(n) = A046118(n)+12 and a(n) = A046119(n)+6. - _Michel Marcus_, Jan 06 2015
%t A046120 lst={};Do[p=Prime[n];If[PrimeQ[p+6]&&PrimeQ[p+12]&&!PrimeQ[p+18], AppendTo[lst, p+12]], {n, 7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 29 2008 *)
%t A046120 #+12&/@Select[Prime[Range[400]],PrimeQ[#+{6,12,18}]=={True,True,False}&] (* _Harvey P. Dale_, Dec 08 2012 *)
%Y A046120 Cf. A023201, A046117.
%Y A046120 Cf. A046118, A046119.
%K A046120 nonn
%O A046120 1,1
%A A046120 _Eric W. Weisstein_