OFFSET
1,1
EXAMPLE
12 is a term, because 12 - rad(12) - 1 = 12 - (2 * 3) - 1 = 12 - 6 - 1 = 5 is prime.
MATHEMATICA
Select[Range[300], PrimeQ[# - Times @@ FactorInteger[#][[;; , 1]] - 1] &] (* Amiram Eldar, Aug 27 2024 *)
PROG
(PARI) isok(k) = isprime(k - (vecprod(factor(k)[, 1])) - 1);
CROSSREFS
KEYWORD
nonn
AUTHOR
Arsen Vardanyan, Aug 27 2024
STATUS
approved