OFFSET
1,1
COMMENTS
EXAMPLE
For k = 5652: k-1 = 5651 and k+1 = 5653 are prime; also sigma(5652) = 14378 and gcd(5652, 14378) = 2, so 5652 is a term.
For k = 18: k-1 = 17 and k+1 = 19 are prime; also sigma(18) = 39 and gcd(18, 39) = 3, so 18 is not a term.
MATHEMATICA
q[k_]:=PrimeQ[k-1]&&PrimeQ[k+1]&&GCD[k, DivisorSigma[1, k]]==2; Select[Range[539712], q] (* James C. McMahon, May 06 2026 *)
PROG
(Python)
from sympy import divisor_sigma, gcd, isprime
def ok(k):
return isprime(k-1) and isprime(k+1) and gcd(k, divisor_sigma(k)) == 2
print([k for k in range(1, 600000) if ok(k)])
CROSSREFS
KEYWORD
nonn
AUTHOR
Aied Sulaiman, May 01 2026
STATUS
approved
