OFFSET
1,1
COMMENTS
All terms == 7 (mod 12).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 31 is in the sequence because 31, (31+2)/3 = 11 and ((31+3)/2) = 17 are prime.
MAPLE
filter:= t -> isprime(t) and isprime((t+2)/3) and isprime((t+3)/2):
select(filter, [seq(i, i=7..30000, 12)]);
MATHEMATICA
Select[Prime[Range[3000]], AllTrue[{(#+2)/3, (#+3)/2}, PrimeQ]&] (* Harvey P. Dale, May 20 2023 *)
PROG
(PARI) isok(p) = iferr(isprime(p) && isprime((p+2)/3) && isprime((p+3)/2), E, 0); \\ Michel Marcus, Oct 25 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Oct 25 2020
STATUS
approved