OFFSET
1,1
COMMENTS
According to the k-tuple conjecture this sequence is theoretically infinite.
LINKS
MAPLE
for a from 3 to 1000 by 2 do
if isprime(a) and isprime(a+2) and isprime(a+14) then
print(a);
end if
end do
# second Maple program:
q:= p-> andmap(isprime, [p, p+2, p+14]):
select(q, [$1..10000])[]; # Alois P. Heinz, Jan 28 2022
MATHEMATICA
Select[Range[7000], And @@ PrimeQ[# + {0, 2, 14}] &] (* Amiram Eldar, Jan 20 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Matt C. Anderson, Jan 19 2022
STATUS
approved