OFFSET
1,1
EXAMPLE
(11-2)/3 is a prime and 3*11+2 isn't.
MATHEMATICA
Select[Prime[Range[500]], ! 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