OFFSET
1,1
COMMENTS
{5, 11, 17, 23, 29) is a sexy prime 5-tuple and this is the only sexy prime 5-tuple.
Essentially same as A123083.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2100
Wikipedia, Sexy prime
FORMULA
a(n) = A123083(n+4).
EXAMPLE
The table starts:
11, 17, 23, 29;
41, 47, 53, 59;
61, 67, 73, 79;
...
MATHEMATICA
Most[#]&/@Select[Table[n + {0, 6, 12, 18, 24}, {n, Prime[Range[200]]}], PrimeQ[#]=={True, True, True, True, False}&]//Flatten (* Vincenzo Librandi, Jun 09 2017 *)
#+{0, 6, 12, 18}&/@Select[Prime[Range[400]], AllTrue[#+{6, 12, 18}, PrimeQ] && CompositeQ[#+24]&]//Flatten (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 29 2019 *)
PROG
(Magma) lst:=[]; for p in PrimesInInterval(7, 2371) do b:=p+6; if IsPrime(b) then c:=b+6; if IsPrime(c) then d:=c+6; if IsPrime(d) then lst:=lst cat [p, b, c, d]; end if; end if; end if; end for; lst;
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Arkadiusz Wesolowski, Aug 05 2016
STATUS
approved