OFFSET
1,1
EXAMPLE
12 is a term, because 12 - rad(12) + 1 = 12 - (2*3) + 1 = 12 - 6 + 1 = 7 is prime.
MATHEMATICA
rad[n_] := Times @@ (First@# & /@ FactorInteger@ n); Select[Range[250], PrimeQ[#-rad[#]+1]&] (* James C. McMahon, Sep 27 2024 *)
PROG
(PARI) isok(k) = isprime(k - (factorback(factor(k)[, 1])) + 1);
CROSSREFS
KEYWORD
nonn
AUTHOR
Arsen Vardanyan, Aug 23 2024
STATUS
approved