OFFSET
1,1
COMMENTS
Primes q !== p (mod 6) such that p < q < p+18, where (p, p+6, p+12, p+18) is a "sexy" prime quadruple, i.e., p is in A023271.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5) = 71 is a term because it is a prime !== 61 (mod 6) with 61 < 71 < 79, where (61, 67, 73, 79) is a sexy prime quadruple.
MAPLE
Res:= 7: count:= 1:
for p from 11 by 10 while count < 100 do
if andmap(isprime, [p, p+6, p+12, p+18]) then
R:= select(isprime, [p+2, p+8, p+10, p+16]);
count:= count + nops(R);
Res:= Res, op(R);
fi
od:
Res;
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Nov 09 2022
STATUS
approved