OFFSET
1,1
MATHEMATICA
Select[Prime[Range[200]], ! PrimeQ[3 # + 2] && ! PrimeQ[(# - 2)/3] &]
PROG
(PARI) isok(p) = if (isprime(p), !isprime(3*p+2) && !(((p%3) == 2) && isprime((p-2)/3))); \\ Michel Marcus, Feb 17 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 10 2024
STATUS
approved