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.
19, 29, 43, 59, 79, 109, 113, 163, 179, 239, 269, 283, 359, 379, 569, 599, 619, 659, 739, 953, 983, 1109, 1129, 1193, 1229, 1289, 1303, 1373, 1439, 1459, 1499, 1619, 1669, 1759, 1789, 1879, 1913, 1999, 2143, 2293, 2389, 2423, 2689, 2699, 2719
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Sexy Primes. [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].
Programs
-
Mathematica
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 *) #+12&/@Select[Prime[Range[400]],PrimeQ[#+{6,12,18}]=={True,True,False}&] (* Harvey P. Dale, Dec 08 2012 *)
Comments